Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTR for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTR

fft = getFFTR(data(:))

pm_fftpack::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftpack.F90:1156

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTR

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CK32

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

33 adat = getFFTR(getFFTF(data)) / size(data)

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CK64

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

61 adat = getFFTR(getFFTF(data)) / size(data)

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CK128

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

89 adat = getFFTR(getFFTF(data)) / size(data)

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RK32

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

117 adat = getFFTR(getFFTF(data)) / size(data)

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RK64

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

145 adat = getFFTR(getFFTF(data)) / size(data)

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RK128

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

173 adat = getFFTR(getFFTF(data)) / size(data)

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::RK32
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294

pm_kind::CK64
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290

pm_kind::CK128
integer, parameter CK128
The complex kind for a 128-bits container.
Definition: pm_kind.F90:289

pm_kind::CK32
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291

pm_kind::RK64
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::RK128
integer, parameter RK128
The real kind for a 128-bits container.
Definition: pm_kind.F90:292

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+55

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.42784095, +0.546093881), (+1.49756575, +0.223827004), (+1.91189718, +0.437064469), (+1.71980238, +0.956737638), (+1.57551885, +0.615822911), (+1.57973504, +0.826117814), (+1.92270780, +0.615558028E-1), (+1.91454458, +0.337668359), (+1.63836467, +0.537668943), (+1.11179209, +0.593488991), (+1.45741606, +0.737490237), (+1.65120459, +0.470170617), (+1.20860839, +0.369806945), (+1.80032969, +0.891103446), (+1.08600473, +0.155598044), (+1.45860243, +0.907145739), (+1.18602824, +0.806074619), (+1.27086782, +0.758975804), (+1.47162628, +0.176506042), (+1.77575743, +0.664194524), (+1.52004361, +0.784189820), (+1.48162091, +0.517754018), (+1.69862819, +0.747753859), (+1.31331003, +0.530015945), (+1.93965054, +0.884541452), (+1.39141786, +0.964767992), (+1.32552886, +0.198680401), (+1.03633213, +0.744696975), (+1.17101407, +0.648788333), (+1.56518936, +0.134003937), (+1.44787920, +0.183023393), (+1.12870812, +0.834031522), (+1.03428841, +0.708889246), (+1.63383055, +0.352490544E-1), (+1.03592682, +0.160507560), (+1.46149731, +0.114327192), (+1.25792336, +0.448059678), (+1.14813781, +0.648658931), (+1.28603363, +0.520503640), (+1.32089245, +0.159115195E-1), (+1.72860467, +0.590287447E-1), (+1.58175278, +0.425320745), (+1.73348784, +0.281691670), (+1.38030553, +0.752063453), (+1.11393046, +0.903334439), (+1.74547863, +0.137066841E-2), (+1.41583633, +0.942656994), (+1.83839273, +0.181750953), (+1.81257594, +0.349578083), (+1.91938114, +0.251957774E-1), (+1.71244717, +0.783738554), (+1.15161133, +0.830239117), (+1.98532629, +0.585349560), (+1.31666279, +0.303020120), (+1.53272712, +0.279590368)

7

8adat = getFFTR(getFFTF(data)) / size(data)

9adat

10(+1.42784083, +0.546093643), (+1.49756551, +0.223826975), (+1.91189671, +0.437064409), (+1.71980226, +0.956737459), (+1.57551861, +0.615822554), (+1.57973564, +0.826117873), (+1.92270839, +0.615558960E-1), (+1.91454422, +0.337668329), (+1.63836432, +0.537668824), (+1.11179209, +0.593488634), (+1.45741618, +0.737490177), (+1.65120459, +0.470170707), (+1.20860815, +0.369806856), (+1.80032992, +0.891103268), (+1.08600509, +0.155597940), (+1.45860267, +0.907145679), (+1.18602908, +0.806074858), (+1.27086842, +0.758975983), (+1.47162628, +0.176505998), (+1.77575767, +0.664194584), (+1.52004385, +0.784189701), (+1.48162079, +0.517753899), (+1.69862854, +0.747753859), (+1.31330991, +0.530015886), (+1.93965077, +0.884541035), (+1.39141786, +0.964767992), (+1.32552874, +0.198680386), (+1.03633249, +0.744697154), (+1.17101490, +0.648788452), (+1.56518960, +0.134003878), (+1.44787931, +0.183023527), (+1.12870812, +0.834031463), (+1.03428853, +0.708889186), (+1.63383090, +0.352490172E-1), (+1.03592741, +0.160507604), (+1.46149755, +0.114327170), (+1.25792336, +0.448059589), (+1.14813769, +0.648658931), (+1.28603423, +0.520503640), (+1.32089329, +0.159114841E-1), (+1.72860491, +0.590289719E-1), (+1.58175302, +0.425320506), (+1.73348773, +0.281691819), (+1.38030553, +0.752063334), (+1.11393070, +0.903334439), (+1.74547887, +0.137044734E-2), (+1.41583645, +0.942656934), (+1.83839250, +0.181750908), (+1.81257606, +0.349578291), (+1.91938198, +0.251960531E-1), (+1.71244800, +0.783738792), (+1.15161157, +0.830239117), (+1.98532617, +0.585349441), (+1.31666279, +0.303019911), (+1.53272748, +0.279590160)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+98

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.6633246956885559, +0.33936201575912339), (+1.2061990905301490, +0.52959574403285525), (+1.7731849171088261, +0.77499696339849589), (+1.7288636229199867, +0.17004276438823673), (+1.3626078582831584, +0.28460245265330841), (+1.6440380325843216, +0.37799184707335509), (+1.1716181342745506, +0.19297709847524414), (+1.3904483855707510, +0.19807514677279459), (+1.6092258432264441, +0.94806155329865216), (+1.4339812623546839, +0.29116338253112251), (+1.3986308154553768, +0.14317906154548066), (+1.1441572779450451, +0.38541627397655964), (+1.1149544833314513, +0.97217055796691054), (+1.7493336192606539, +0.48565425545728891), (+1.0406069014887103, +0.77406370932054402), (+1.3945069327518129, +0.84217252922166530), (+1.3620977657758662, +0.32482184488536403), (+1.2808202369803654, +0.81596259598133436), (+1.2712099428409080, +0.87411463120097799), (+1.2167453621328228, +0.88501988780889251), (+1.2210597100973026, +0.38688964384674096), (+1.4400572479103895, +0.26516114478391095), (+1.4698434941229994, +0.21007646349859399), (+1.9504509267891370, +0.49036820361765887), (+1.5292190196290183, +0.69433026432179445), (+1.4964218562509557, +0.94162281422378191), (+1.8748068342278938, +0.47092305773634080), (+1.3731192316470326, +0.12200424622049111), (+1.0610902580485950, +0.36438381462816838), (+1.3182008820401796, +0.82572127698404274E-1), (+1.9879424887119967, +0.12646974094002494), (+1.6568480386485578, +0.53073109538527607), (+1.0947223415743452, +0.60550915263231464), (+1.1355825509182627, +0.65018643746522753), (+1.3487173059434185, +0.60911876268131115), (+1.2028155100324072, +0.84898201548486374E-1), (+1.1741304652682398, +0.55769281420050043), (+1.3112319318624230, +0.22409593225209345), (+1.1491000949011330, +0.90586839697637578), (+1.5514853114931451, +0.87145609088281417), (+1.8205636811393737, +0.24136223414330460), (+1.9501305316139168, +0.91984166246151544), (+1.5771091467721803, +0.96210549460548112), (+1.2433279813689890, +0.61274116804517564), (+1.9842537733050833, +0.94535501049628290), (+1.9746325223668153, +0.28138147271896330), (+1.6699505786100479, +0.38135514917286595), (+1.4557463716153642, +0.10695559775196384), (+1.4163536629654747, +0.21429804841286659), (+1.1244659596968933, +0.70287875130815436), (+1.0457229269113124, +0.11234160792158887), (+1.8012651547131446, +0.60744025708655114E-1), (+1.9533765192748476, +0.84520384388330261), (+1.6976222805570922, +0.91196987257134809), (+1.5205819581117201, +0.44955322534592301), (+1.6349017004649284, +0.68283132461713281), (+1.2061094540569710, +0.73570148779331501), (+1.9252104049572820, +0.27753757488217601), (+1.4235852180389914, +0.11111927589915183), (+1.1419182585108607, +0.54400035011181769), (+1.3252075875515126, +0.19241698428556475), (+1.6425617764377387, +0.90013953205631714), (+1.7095715505809124, +0.37550348752770157), (+1.1425229696793462, +0.69571673045440074), (+1.3080511681190798, +0.17475367888415971), (+1.2444569428919046, +0.67443579866168224), (+1.7798018799097712, +0.11441254559489378), (+1.6975118128524804, +0.43495379092624531), (+1.8360665828455944, +0.45536654782397157), (+1.4026803830261048, +0.27126514256675238), (+1.9542987239650131, +0.19491007386502557E-1), (+1.8506873021584216, +0.47973508297731804), (+1.0269999241350150, +0.61856622457730492), (+1.9442255948339389, +0.46457719014894416), (+1.4650056372488121, +0.22828940765365835), (+1.6498799088526919, +0.16236615795888876), (+1.1911339012146036, +0.83873726163736062), (+1.2574707578921487, +0.11576049466007243), (+1.6154068752020376, +0.72449495141860720), (+1.3581706779748892, +0.77122850305166168), (+1.6677769142101846, +0.27402118972403788), (+1.5005291750851493, +0.77380972509556101), (+1.2646672369615122, +0.34587505506339600), (+1.8450025912892070, +0.12870613025783295), (+1.9197886571278091, +0.98486171668774936), (+1.8795105330579842, +0.29936611245051559), (+1.6310333517974098, +0.72917525703268249), (+1.9949871929346055, +0.97589275349537152), (+1.0785021463358710, +0.25981464338169713), (+1.4480777508325449, +0.56327188652996019E-1), (+1.5573866111397050, +0.68518028592399305E-1), (+1.9746986436411407, +0.49318685856377598), (+1.3203399581266513, +0.92844655671345033), (+1.0933962675344708, +0.65405625460905070), (+1.3124209113924634, +0.82997257705525196), (+1.2902897467283569, +0.83563660133043371), (+1.5381396225518968, +0.56618294406948466), (+1.2577280786945360, +0.98710039973534414)

24

25adat = getFFTR(getFFTF(data)) / size(data)

26adat

27(+1.6633246956885563, +0.33936201575912339), (+1.2061990905301492, +0.52959574403285548), (+1.7731849171088261, +0.77499696339849589), (+1.7288636229199863, +0.17004276438823684), (+1.3626078582831573, +0.28460245265330858), (+1.6440380325843216, +0.37799184707335504), (+1.1716181342745513, +0.19297709847524425), (+1.3904483855707508, +0.19807514677279470), (+1.6092258432264450, +0.94806155329865238), (+1.4339812623546837, +0.29116338253112256), (+1.3986308154553766, +0.14317906154548082), (+1.1441572779450448, +0.38541627397655970), (+1.1149544833314515, +0.97217055796691065), (+1.7493336192606541, +0.48565425545728930), (+1.0406069014887107, +0.77406370932054414), (+1.3945069327518127, +0.84217252922166541), (+1.3620977657758662, +0.32482184488536403), (+1.2808202369803650, +0.81596259598133414), (+1.2712099428409072, +0.87411463120097765), (+1.2167453621328228, +0.88501988780889240), (+1.2210597100973031, +0.38688964384674135), (+1.4400572479103892, +0.26516114478391084), (+1.4698434941229996, +0.21007646349859396), (+1.9504509267891366, +0.49036820361765898), (+1.5292190196290176, +0.69433026432179423), (+1.4964218562509555, +0.94162281422378180), (+1.8748068342278938, +0.47092305773634091), (+1.3731192316470329, +0.12200424622049126), (+1.0610902580485950, +0.36438381462816849), (+1.3182008820401794, +0.82572127698404371E-1), (+1.9879424887119967, +0.12646974094002483), (+1.6568480386485565, +0.53073109538527596), (+1.0947223415743448, +0.60550915263231453), (+1.1355825509182624, +0.65018643746522753), (+1.3487173059434188, +0.60911876268131115), (+1.2028155100324069, +0.84898201548486596E-1), (+1.1741304652682401, +0.55769281420050032), (+1.3112319318624233, +0.22409593225209376), (+1.1491000949011325, +0.90586839697637545), (+1.5514853114931453, +0.87145609088281417), (+1.8205636811393737, +0.24136223414330477), (+1.9501305316139164, +0.91984166246151566), (+1.5771091467721805, +0.96210549460548089), (+1.2433279813689893, +0.61274116804517587), (+1.9842537733050836, +0.94535501049628312), (+1.9746325223668149, +0.28138147271896352), (+1.6699505786100473, +0.38135514917286617), (+1.4557463716153647, +0.10695559775196360), (+1.4163536629654760, +0.21429804841286695), (+1.1244659596968936, +0.70287875130815458), (+1.0457229269113129, +0.11234160792158920), (+1.8012651547131449, +0.60744025708655315E-1), (+1.9533765192748471, +0.84520384388330239), (+1.6976222805570917, +0.91196987257134798), (+1.5205819581117199, +0.44955322534592296), (+1.6349017004649287, +0.68283132461713325), (+1.2061094540569715, +0.73570148779331490), (+1.9252104049572825, +0.27753757488217612), (+1.4235852180389912, +0.11111927589915195), (+1.1419182585108603, +0.54400035011181780), (+1.3252075875515119, +0.19241698428556461), (+1.6425617764377392, +0.90013953205631714), (+1.7095715505809135, +0.37550348752770185), (+1.1425229696793464, +0.69571673045440086), (+1.3080511681190803, +0.17475367888416005), (+1.2444569428919048, +0.67443579866168235), (+1.7798018799097708, +0.11441254559489356), (+1.6975118128524800, +0.43495379092624520), (+1.8360665828455942, +0.45536654782397168), (+1.4026803830261050, +0.27126514256675238), (+1.9542987239650134, +0.19491007386502480E-1), (+1.8506873021584216, +0.47973508297731793), (+1.0269999241350150, +0.61856622457730470), (+1.9442255948339378, +0.46457719014894422), (+1.4650056372488112, +0.22828940765365824), (+1.6498799088526919, +0.16236615795888840), (+1.1911339012146041, +0.83873726163736073), (+1.2574707578921482, +0.11576049466007253), (+1.6154068752020379, +0.72449495141860742), (+1.3581706779748888, +0.77122850305166168), (+1.6677769142101835, +0.27402118972403744), (+1.5005291750851490, +0.77380972509556079), (+1.2646672369615120, +0.34587505506339611), (+1.8450025912892063, +0.12870613025783337), (+1.9197886571278093, +0.98486171668774947), (+1.8795105330579842, +0.29936611245051575), (+1.6310333517974100, +0.72917525703268249), (+1.9949871929346048, +0.97589275349537141), (+1.0785021463358704, +0.25981464338169685), (+1.4480777508325446, +0.56327188652995852E-1), (+1.5573866111397061, +0.68518028592399263E-1), (+1.9746986436411409, +0.49318685856377592), (+1.3203399581266517, +0.92844655671345078), (+1.0933962675344708, +0.65405625460905092), (+1.3124209113924630, +0.82997257705525207), (+1.2902897467283567, +0.83563660133043371), (+1.5381396225518971, +0.56618294406948466), (+1.2577280786945366, +0.98710039973534425)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+65

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.19319873581298848462797333293079120, +0.808320740012114721380693536447266023), (+1.53995141504988380905119808580369442, +0.948572316482322049393132663127751199), (+1.43280130410565927520805118785812382, +0.373610632147299829024611373558041545), (+1.77363387893858443944786443580677294, +0.295603982383307314931268283899252808), (+1.87970116735275984178723124545643291, +0.547291846436873920102575544004293988), (+1.59575021033152928480381755632485977, +0.626825718511877807326731444988123856), (+1.99241023973670311650497868518909982, +0.572058034816607783918004681043884607), (+1.34366266126310018166995967002285070, +0.437912433473636898527959518300242927), (+1.09880580887669982263140373011118348, +0.934760167365745791782562090249357081), (+1.35701807243235100903172638424608092, +0.497087747516656763580128950315357728), (+1.52097251676163164904360570075195927, +0.212939260522218400867906249810626871E-1), (+1.80098848130106291204947053107103794, +0.853335935052833468330370643954735984), (+1.54684258317511906984847687191509979, +0.190159034761325993424848067598974103), (+1.27683793369320490420268370752192207, +0.129203128942391670864766864871806315E-1), (+1.65630335619645612778246905912349052, +0.492898711711266147431720076653493668), (+1.53793943665354611969925424569565649, +0.900868925306827601042397508258106672), (+1.11169929219621753158646725072614778, +0.896196563836704697694410181210165171E-1), (+1.22019603919478103061088499117571973, +0.791693423782939778617033131987881643), (+1.94646170798620884380360138784132056, +0.981918136228575419577093052398636785), (+1.35213567840648879512271857157736530, +0.179559268797600007822224503882151185), (+1.91892212803324088820597318603997407, +0.845326648723370930860741572671338153), (+1.48935156213279085930018937235451508, +0.431911209791113634706140640634462498), (+1.34743165109489216823218467825316321, +0.374088830276174737677308711861007686), (+1.08049411652746532971963797685782647, +0.910686252765820234699840257682147632), (+1.83471378002221036284819946681844782, +0.788152055357661801110938079324751551), (+1.06150864194398560436309952998596993, +0.462283559919722959586302947569481284E-2), (+1.14999660059464843936881311214377142, +0.995507851013419279052549163547336779), (+1.23803483654892704407223826587140061, +0.274874583121663737542190073026901684), (+1.06224959097876722316533152952347889, +0.335549730088416075826227294427713360), (+1.03268325962388028499923136895501502, +0.969426825228861573420992945578007509), (+1.30602926482305007068392559267285292, +0.495202895338753610216933814937514604), (+1.42717514392957669348750833783186521, +0.851587029787493591716193054782569718), (+1.00358749522293360798253280422820524, +0.832877019102413425783372491367008864), (+1.66637432316370181003473696466524935, +0.950320212184024412705207674100748520), (+1.50249668438868785218667655633391660, +0.241015663492893122342005048569008154), (+1.38494665061925030996555235510995022, +0.799871090471899361255634337260096728), (+1.94037148323466178263376401419111027, +0.118247243738038022893845452843066679), (+1.90759658951000038672507509939272388, +0.692985692714966983687421270320520815), (+1.99828024390446651496601088578477196, +0.825942045255664191069341568097331042), (+1.88607802116840408963353934856263834, +0.203364511941511823702302412220848607), (+1.76534565644856239865778808795982766, +0.968885568690889518811482170803054082), (+1.31508924546931272489517330825552709, +0.420328929296827153464379246183510294E-1), (+1.84411621619277279583638673768934112, +0.988757938928293455645038219687616320), (+1.19220295326317614377520540928981459, +0.256775940385088422520725859468972565E-1), (+1.29479942381439190698384970211410316, +0.740387222933187755249647577403398524), (+1.14730980987890353098886944887618902, +0.379482190023071725671282330356934664), (+1.31537203156279096251176448575009407, +0.358389240378504878463919619977451054E-1), (+1.53602204277414193249981352858529127, +0.820720675886463916503882642806437768), (+1.44285437501303137053606184844116091, +0.790366365709600920816639729109013514), (+1.94730688788793766026442131260941817, +0.847183213963279273277359819135765702), (+1.96671597431147521690054230281627192, +0.287921789349122334115799455157613673), (+1.32258080891790684909162758501917670, +0.338143239216027548800583303123104939), (+1.47356328522876474206759075978842437, +0.840964613996668040850046767375792927), (+1.90426774770266069094435731879413431, +0.150065745611799392327197726420815062), (+1.49442349193442650543328249807410673, +0.240131736153238312828077234786551555), (+1.63142789000645631720771335783057504, +0.743992591015211283972612901725406368E-1), (+1.63490979896824326890008584079174943, +0.963037938488895434079450686473794907), (+1.71262743231046280819056171483726479, +0.711779034693778020486583823323271913), (+1.12850971919450037998197942550959295, +0.767555512534803443831552621237998151E-1), (+1.57898261286791992540453456613144179, +0.944095687009099804292792665896946268), (+1.40637405898438877852085981855974310, +0.831008364493161599923032066481195592), (+1.82469759920436028488729559079304675, +0.346925447788788940524407122326812782), (+1.37668609935438097425025024896167370, +0.930689782411170388391160834764686225), (+1.07135504886381192147715488453675161, +0.148559784535798360172507896816097840), (+1.18167596559831212551993773279044852, +0.229881221225768598274400778272294284)

41

42adat = getFFTR(getFFTF(data)) / size(data)

43adat

44(+1.19319873581298848462797333293078985, +0.808320740012114721380693536447265927), (+1.53995141504988380905119808580369500, +0.948572316482322049393132663127751199), (+1.43280130410565927520805118785812401, +0.373610632147299829024611373558041497), (+1.77363387893858443944786443580677294, +0.295603982383307314931268283899253049), (+1.87970116735275984178723124545643272, +0.547291846436873920102575544004293699), (+1.59575021033152928480381755632485977, +0.626825718511877807326731444988123856), (+1.99241023973670311650497868518909905, +0.572058034816607783918004681043884511), (+1.34366266126310018166995967002284993, +0.437912433473636898527959518300242446), (+1.09880580887669982263140373011118348, +0.934760167365745791782562090249357177), (+1.35701807243235100903172638424608092, +0.497087747516656763580128950315357584), (+1.52097251676163164904360570075195908, +0.212939260522218400867906249810625637E-1), (+1.80098848130106291204947053107103852, +0.853335935052833468330370643954735792), (+1.54684258317511906984847687191509999, +0.190159034761325993424848067598974368), (+1.27683793369320490420268370752192091, +0.129203128942391670864766864871802644E-1), (+1.65630335619645612778246905912349090, +0.492898711711266147431720076653494053), (+1.53793943665354611969925424569565668, +0.900868925306827601042397508258106479), (+1.11169929219621753158646725072614836, +0.896196563836704697694410181210166857E-1), (+1.22019603919478103061088499117571973, +0.791693423782939778617033131987881354), (+1.94646170798620884380360138784132095, +0.981918136228575419577093052398636785), (+1.35213567840648879512271857157736491, +0.179559268797600007822224503882150848), (+1.91892212803324088820597318603997368, +0.845326648723370930860741572671338153), (+1.48935156213279085930018937235451508, +0.431911209791113634706140640634462450), (+1.34743165109489216823218467825316321, +0.374088830276174737677308711861007397), (+1.08049411652746532971963797685782647, +0.910686252765820234699840257682147728), (+1.83471378002221036284819946681844878, +0.788152055357661801110938079324751551), (+1.06150864194398560436309952998597050, +0.462283559919722959586302947569477597E-2), (+1.14999660059464843936881311214377007, +0.995507851013419279052549163547336490), (+1.23803483654892704407223826587140119, +0.274874583121663737542190073026901780), (+1.06224959097876722316533152952347870, +0.335549730088416075826227294427713457), (+1.03268325962388028499923136895501541, +0.969426825228861573420992945578007798), (+1.30602926482305007068392559267285330, +0.495202895338753610216933814937514411), (+1.42717514392957669348750833783186540, +0.851587029787493591716193054782570103), (+1.00358749522293360798253280422820447, +0.832877019102413425783372491367008575), (+1.66637432316370181003473696466524858, +0.950320212184024412705207674100748038), (+1.50249668438868785218667655633391640, +0.241015663492893122342005048569008298), (+1.38494665061925030996555235510995080, +0.799871090471899361255634337260096632), (+1.94037148323466178263376401419111066, +0.118247243738038022893845452843066583), (+1.90759658951000038672507509939272426, +0.692985692714966983687421270320520719), (+1.99828024390446651496601088578477215, +0.825942045255664191069341568097331138), (+1.88607802116840408963353934856263699, +0.203364511941511823702302412220848462), (+1.76534565644856239865778808795982804, +0.968885568690889518811482170803054178), (+1.31508924546931272489517330825552728, +0.420328929296827153464379246183510956E-1), (+1.84411621619277279583638673768934151, +0.988757938928293455645038219687616320), (+1.19220295326317614377520540928981401, +0.256775940385088422520725859468970187E-1), (+1.29479942381439190698384970211410335, +0.740387222933187755249647577403398524), (+1.14730980987890353098886944887618845, +0.379482190023071725671282330356934472), (+1.31537203156279096251176448575009349, +0.358389240378504878463919619977450272E-1), (+1.53602204277414193249981352858529127, +0.820720675886463916503882642806437768), (+1.44285437501303137053606184844116091, +0.790366365709600920816639729109013225), (+1.94730688788793766026442131260941856, +0.847183213963279273277359819135765991), (+1.96671597431147521690054230281627249, +0.287921789349122334115799455157613817), (+1.32258080891790684909162758501917767, +0.338143239216027548800583303123105276), (+1.47356328522876474206759075978842322, +0.840964613996668040850046767375792542), (+1.90426774770266069094435731879413488, +0.150065745611799392327197726420815038), (+1.49442349193442650543328249807410711, +0.240131736153238312828077234786551459), (+1.63142789000645631720771335783057523, +0.743992591015211283972612901725408173E-1), (+1.63490979896824326890008584079174981, +0.963037938488895434079450686473794810), (+1.71262743231046280819056171483726460, +0.711779034693778020486583823323271913), (+1.12850971919450037998197942550959198, +0.767555512534803443831552621237997549E-1), (+1.57898261286791992540453456613144140, +0.944095687009099804292792665896946172), (+1.40637405898438877852085981855974329, +0.831008364493161599923032066481195592), (+1.82469759920436028488729559079304675, +0.346925447788788940524407122326812686), (+1.37668609935438097425025024896167408, +0.930689782411170388391160834764686322), (+1.07135504886381192147715488453675219, +0.148559784535798360172507896816097912), (+1.18167596559831212551993773279044948, +0.229881221225768598274400778272294284)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+32

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.93958914, +1.07184899, +1.87318540, +1.98839509, +1.91228712, +1.28716397, +1.08552217, +1.61703253, +1.01091909, +1.40540648, +1.16959429, +1.83951759, +1.68717241, +1.91697466, +1.80251861, +1.15947413, +1.94453955, +1.34604740, +1.24875474, +1.87868333, +1.89888072, +1.97477341, +1.24163127, +1.33478987, +1.42316663, +1.21203327, +1.78389788, +1.96481156, +1.34912109, +1.85505581, +1.57305801, +1.25070786

58

59adat = getFFTR(getFFTF(data)) / size(data)

60adat

61+1.93958926, +1.07184887, +1.87318552, +1.98839498, +1.91228712, +1.28716397, +1.08552229, +1.61703229, +1.01091933, +1.40540648, +1.16959441, +1.83951759, +1.68717253, +1.91697443, +1.80251861, +1.15947402, +1.94453979, +1.34604740, +1.24875486, +1.87868309, +1.89888084, +1.97477341, +1.24163139, +1.33478975, +1.42316699, +1.21203327, +1.78389800, +1.96481156, +1.34912121, +1.85505569, +1.57305789, +1.25070775

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+48

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.3563800960492340, +1.8407456784658160, +1.0759955424670589, +1.2648531168146773, +1.3825494378153578, +1.9502576673408965, +1.0758808990773954, +1.5751067717909986, +1.1780625133197895, +1.8658485471354527, +1.2455482481979643, +1.4495289528291353, +1.5783875703520787, +1.6525110144612962, +1.6043038224781991, +1.3788868404856889, +1.4993826263462022, +1.2278123883032666, +1.5926269433817268, +1.2721479442648045, +1.9203453295673589, +1.0935027568015059, +1.8027704610755675, +1.3865561164646496, +1.9226182949358248, +1.1385558493658761, +1.4306464635210503, +1.1410214678370005, +1.1849089636470165, +1.5539458346020116, +1.5803358398457652, +1.6427072768719977, +1.1791482689483117, +1.6051847651566191, +1.4618338662796924, +1.9708659717057246, +1.1336504699809773, +1.1439390839955870, +1.9442997819787204, +1.1910579733314748, +1.8112061436262630, +1.3137262958056393, +1.8543867413024233, +1.3198881563163414, +1.3622184715330072, +1.6340801472812791, +1.1164335649941650, +1.6889095172117581

75

76adat = getFFTR(getFFTF(data)) / size(data)

77adat

78+1.3563800960492338, +1.8407456784658163, +1.0759955424670586, +1.2648531168146777, +1.3825494378153573, +1.9502576673408960, +1.0758808990773951, +1.5751067717909990, +1.1780625133197893, +1.8658485471354525, +1.2455482481979641, +1.4495289528291355, +1.5783875703520784, +1.6525110144612960, +1.6043038224781991, +1.3788868404856893, +1.4993826263462022, +1.2278123883032668, +1.5926269433817268, +1.2721479442648047, +1.9203453295673585, +1.0935027568015054, +1.8027704610755670, +1.3865561164646498, +1.9226182949358244, +1.1385558493658758, +1.4306464635210501, +1.1410214678370008, +1.1849089636470163, +1.5539458346020114, +1.5803358398457652, +1.6427072768719979, +1.1791482689483117, +1.6051847651566193, +1.4618338662796926, +1.9708659717057249, +1.1336504699809771, +1.1439390839955865, +1.9442997819787202, +1.1910579733314750, +1.8112061436262625, +1.3137262958056388, +1.8543867413024229, +1.3198881563163416, +1.3622184715330070, +1.6340801472812787, +1.1164335649941650, +1.6889095172117583

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+65

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.56132984465203183671648192940875936, +1.78562359642272019255902345200521970, +1.54065391404473874783382036788341109, +1.48008899800398541545348021007693728, +1.23698560038858279900735769482776218, +1.01452394665752602423911789583160271, +1.04007197923482596199340762026711620, +1.02611276119015556172932723002087255, +1.11876664915027373180240242496617856, +1.08009252159949936550527712158806502, +1.16068969560476166912158297633213487, +1.24251264415954547071666704277099063, +1.94830449596438368150971403360661266, +1.40171660357442770274068178985814117, +1.42009203099743370389031768495518745, +1.47012774636165183201499819803300380, +1.91767348056379052464135829825872810, +1.24794337844623787408459336443501128, +1.48710317091767731162873448651312731, +1.04729794986021537075227475763830237, +1.09512134659842489839985861439419798, +1.02324284053453328106839230594359913, +1.29543467409305450471036586256189195, +1.08840632848871691787009842235425980, +1.11499114471627375460828262668396609, +1.16682019661810656443462870522093561, +1.75177582416062584497281656172889266, +1.18350188413719955877635072515747712, +1.32706931772900352990958815097709313, +1.13024267289943165281994404244061456, +1.37167910849725118420928240212009598, +1.51875185221233661543698237150767280, +1.35857603027914868055374814805610076, +1.89785462465003693473286463785613305, +1.38496875232402122436705961826092921, +1.97580254167217599838587223042400747, +1.28612616796593271695312165347270513, +1.93205617217568605825393149898863790, +1.00224758755101544841679689999931542, +1.11571868098445081815511676348865512, +1.52530289340974663788997136297404776, +1.11260695500972020012642072726810780, +1.89147678069016225028282486351565626, +1.39317457601450179256159892354502340, +1.21429547765989373626082775476880663, +1.22286958397637480133032341563536141, +1.85935649745269918087092593082678595, +1.61212585837799751103866990073956714, +1.70902840677036615181105979023411871, +1.83756074351801299002339445143867275, +1.21544240187847153794218576450219498, +1.06482890996767704469764506237668504, +1.56097143582321242284811043314060805, +1.52332828141369981997389655688151368, +1.66566763570200421617558513018866596, +1.62435996153692314198155100114273663, +1.46043535387946690226756987674014125, +1.65863637167130331621795350970177845, +1.74020723538518625461476316118038263, +1.42770241953676599924970016102188109, +1.45019380770422846966202281437496084, +1.78029974609784737333070006797454015, +1.49818045268691680944999074076382237, +1.72682676961369020865995432124063938, +1.31914776914644864031397462011191121

92

93adat = getFFTR(getFFTF(data)) / size(data)

94adat

95+1.56132984465203183671648192940875917, +1.78562359642272019255902345200521970, +1.54065391404473874783382036788341109, +1.48008899800398541545348021007693728, +1.23698560038858279900735769482776237, +1.01452394665752602423911789583160271, +1.04007197923482596199340762026711601, +1.02611276119015556172932723002087275, +1.11876664915027373180240242496617875, +1.08009252159949936550527712158806540, +1.16068969560476166912158297633213410, +1.24251264415954547071666704277099044, +1.94830449596438368150971403360661208, +1.40171660357442770274068178985814079, +1.42009203099743370389031768495518745, +1.47012774636165183201499819803300380, +1.91767348056379052464135829825872810, +1.24794337844623787408459336443501166, +1.48710317091767731162873448651312750, +1.04729794986021537075227475763830276, +1.09512134659842489839985861439419740, +1.02324284053453328106839230594359836, +1.29543467409305450471036586256189137, +1.08840632848871691787009842235425903, +1.11499114471627375460828262668396551, +1.16682019661810656443462870522093638, +1.75177582416062584497281656172889305, +1.18350188413719955877635072515747828, +1.32706931772900352990958815097709332, +1.13024267289943165281994404244061495, +1.37167910849725118420928240212009444, +1.51875185221233661543698237150767184, +1.35857603027914868055374814805609922, +1.89785462465003693473286463785613247, +1.38496875232402122436705961826092863, +1.97580254167217599838587223042400651, +1.28612616796593271695312165347270474, +1.93205617217568605825393149898863656, +1.00224758755101544841679689999931427, +1.11571868098445081815511676348865435, +1.52530289340974663788997136297404776, +1.11260695500972020012642072726810780, +1.89147678069016225028282486351565683, +1.39317457601450179256159892354502417, +1.21429547765989373626082775476880721, +1.22286958397637480133032341563536103, +1.85935649745269918087092593082678498, +1.61212585837799751103866990073956637, +1.70902840677036615181105979023411775, +1.83756074351801299002339445143867178, +1.21544240187847153794218576450219517, +1.06482890996767704469764506237668543, +1.56097143582321242284811043314060843, +1.52332828141369981997389655688151387, +1.66566763570200421617558513018866635, +1.62435996153692314198155100114273586, +1.46043535387946690226756987674014087, +1.65863637167130331621795350970177806, +1.74020723538518625461476316118038225, +1.42770241953676599924970016102188109, +1.45019380770422846966202281437496065, +1.78029974609784737333070006797453996, +1.49818045268691680944999074076382275, +1.72682676961369020865995432124063976, +1.31914776914644864031397462011191159

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+89

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.30708909, +0.409626305), (+1.34008420, +0.742108285), (+1.13079786, +0.103727818), (+1.89279389, +0.247977018), (+1.80754972, +0.938018680), (+1.00748956, +0.565036356), (+1.70616031, +0.893425763), (+1.92384911, +0.544154346), (+1.50768733, +0.720076323), (+1.96320581, +0.412834167), (+1.43863559, +0.588538587), (+1.00622606, +0.535763741), (+1.17856514, +0.140201330), (+1.97739041, +0.643165946), (+1.56824493, +0.755720794), (+1.86594880, +0.529705107), (+1.34432065, +0.743594170E-1), (+1.96753275, +0.975816011), (+1.76344025, +0.975019693), (+1.58486867, +0.607896030), (+1.73514485, +0.102535725), (+1.62281990, +0.733903646), (+1.22640860, +0.679974318), (+1.78752244, +0.745841980), (+1.33550072, +0.784366727), (+1.55893660, +0.247028947), (+1.67527533, +0.836143017), (+1.09144258, +0.939323485), (+1.42492843, +0.424522042), (+1.19863558, +0.311726153), (+1.56706858, +0.283992887), (+1.28778839, +0.150069952), (+1.45140171, +0.404806376), (+1.58517766, +0.127606213), (+1.09115839, +0.946923614), (+1.17157197, +0.959406435), (+1.98194504, +0.653698564), (+1.97526169, +0.686842203), (+1.64955258, +0.986676574), (+1.65047336, +0.826476753), (+1.41484237, +0.130272985), (+1.55815768, +0.426243842), (+1.89365983, +0.978571713), (+1.19748926, +0.402200103), (+1.39685774, +0.816867173), (+1.36059070, +0.670272291), (+1.62468457, +0.240445137E-3), (+1.39375138, +0.908091009), (+1.17049932, +0.147804618E-1), (+1.79514194, +0.987863719), (+1.30907536, +0.621163189), (+1.95756197, +0.168628156), (+1.61794400, +0.806352854), (+1.03398764, +0.181156814), (+1.26811743, +0.373488426), (+1.49695098, +0.962586880), (+1.53845215, +0.730211437), (+1.88628840, +0.774840236), (+1.07513499, +0.466703832), (+1.61285949, +0.186052918E-1), (+1.20891118, +0.434548199), (+1.50770783, +0.694469750), (+1.57051718, +0.576169014), (+1.16043472, +0.309604228), (+1.02478862, +0.199508071), (+1.14880252, +0.445183396), (+1.44110894, +0.226223648), (+1.38123691, +0.108932495), (+1.40616155, +0.502164960E-1), (+1.11143446, +0.988651097), (+1.72207713, +0.890652418), (+1.68404794, +0.527034402), (+1.47004151, +0.527048647), (+1.99925995, +0.779928923), (+1.51761198, +0.231480598), (+1.67643690, +0.428923368), (+1.49118257, +0.343044341), (+1.68029797, +0.110827565), (+1.96645260, +0.972501040E-1), (+1.73807049, +0.187522471), (+1.49979973, +0.949404240E-1), (+1.22389030, +0.478171766), (+1.01306200, +0.348501384), (+1.39872265, +0.239567757), (+1.21714950, +0.526618361), (+1.39212453, +0.150188744), (+1.36560750, +0.477417409), (+1.17603755, +0.698222518E-1), (+1.23732376, +0.723550677)

109

110adat = getFFTR(getFFTF(data)) / size(data)

111adat

112(+1.30709100, +0.409627080), (+1.34008360, +0.742108107), (+1.13079786, +0.103727557), (+1.89279342, +0.247977003), (+1.80754900, +0.938018620), (+1.00748909, +0.565036297), (+1.70615995, +0.893425584), (+1.92384875, +0.544154048), (+1.50768697, +0.720076144), (+1.96320570, +0.412834078), (+1.43863499, +0.588538706), (+1.00622594, +0.535763621), (+1.17856443, +0.140201122), (+1.97739041, +0.643165827), (+1.56824470, +0.755720675), (+1.86594832, +0.529704928), (+1.34432030, +0.743592754E-1), (+1.96753275, +0.975815773), (+1.76344037, +0.975019455), (+1.58486867, +0.607896090), (+1.73514533, +0.102535717), (+1.62282002, +0.733903408), (+1.22640872, +0.679974139), (+1.78752279, +0.745841920), (+1.33550096, +0.784366667), (+1.55893648, +0.247028902), (+1.67527544, +0.836143076), (+1.09144270, +0.939323485), (+1.42492843, +0.424522042), (+1.19863605, +0.311726004), (+1.56706893, +0.283992946), (+1.28778815, +0.150070027), (+1.45140243, +0.404806376), (+1.58517814, +0.127605930), (+1.09115815, +0.946923316), (+1.17157173, +0.959406376), (+1.98194492, +0.653698504), (+1.97526193, +0.686842442), (+1.64955282, +0.986676693), (+1.65047324, +0.826476812), (+1.41484237, +0.130273029), (+1.55815721, +0.426243991), (+1.89366066, +0.978571773), (+1.19748914, +0.402200192), (+1.39685833, +0.816867113), (+1.36059141, +0.670272112), (+1.62468457, +0.240583104E-3), (+1.39375210, +0.908091068), (+1.17049897, +0.147806443E-1), (+1.79514182, +0.987863541), (+1.30907512, +0.621163130), (+1.95756221, +0.168628216), (+1.61794388, +0.806353033), (+1.03398740, +0.181156904), (+1.26811731, +0.373488188), (+1.49695063, +0.962586582), (+1.53845263, +0.730211139), (+1.88628888, +0.774840295), (+1.07513499, +0.466703862), (+1.61285996, +0.186052434E-1), (+1.20891166, +0.434548020), (+1.50770795, +0.694469690), (+1.57051742, +0.576169074), (+1.16043520, +0.309604049), (+1.02478862, +0.199508145), (+1.14880264, +0.445183218), (+1.44110918, +0.226223439), (+1.38123703, +0.108932324), (+1.40616167, +0.502163544E-1), (+1.11143494, +0.988650978), (+1.72207749, +0.890652597), (+1.68404806, +0.527034283), (+1.47004163, +0.527048409), (+1.99925971, +0.779928803), (+1.51761138, +0.231480524), (+1.67643666, +0.428923368), (+1.49118268, +0.343044251), (+1.68029737, +0.110827439), (+1.96645260, +0.972498581E-1), (+1.73807001, +0.187522456), (+1.49979937, +0.949402526E-1), (+1.22389007, +0.478171706), (+1.01306176, +0.348501027), (+1.39872241, +0.239567578), (+1.21714890, +0.526618242), (+1.39212382, +0.150188580), (+1.36560714, +0.477417260), (+1.17603755, +0.698220730E-1), (+1.23732305, +0.723550498)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+29

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.4597179656269437, +0.30018978162454801E-1), (+1.7161462761613455, +0.97812541192398239), (+1.9510667731266105, +0.86224164550257032), (+1.1404653528184718, +0.92378586129805673), (+1.8220781241164015, +0.40541218742697260), (+1.5628918210266400, +0.15926426666865379), (+1.8842719874625735, +0.96492217071387099), (+1.9578531976779137, +0.15404023709959558), (+1.0747926207300198, +0.56697986371636921), (+1.6928800557703525, +0.51641853450349895), (+1.7635479532160936, +0.28414045921974396), (+1.1094854204918612, +0.91209187529065971), (+1.2490287697034637, +0.56499604673395454), (+1.2670164512074549, +0.59195715850554220), (+1.0923604304835601, +0.76699725403667796), (+1.1783946119515860, +0.51427961899649299), (+1.5054257727632814, +0.58428584880556000), (+1.3256489565226928, +0.18098396826457142), (+1.6610805953894183, +0.51289294068301450), (+1.0792397579250146, +0.86234816798267810), (+1.8088275502330040, +0.16408476903754321), (+1.9655777001653800, +0.60714484866956786), (+1.8337402717335567, +0.50129657494060875), (+1.5698452614471852, +0.21838346790939112), (+1.4644849221203575, +0.68282076383351031), (+1.9954564201640306, +0.83442151894773786), (+1.9074472271850111, +0.47716409339748278), (+1.6665439313485932, +0.95914126396244193E-1), (+1.0282461101186979, +0.72172773124404621)

126

127adat = getFFTR(getFFTF(data)) / size(data)

128adat

129(+1.4597179656269446, +0.30018978162455356E-1), (+1.7161462761613451, +0.97812541192398250), (+1.9510667731266107, +0.86224164550257032), (+1.1404653528184721, +0.92378586129805640), (+1.8220781241164012, +0.40541218742697283), (+1.5628918210266394, +0.15926426666865395), (+1.8842719874625733, +0.96492217071387076), (+1.9578531976779139, +0.15404023709959566), (+1.0747926207300198, +0.56697986371636933), (+1.6928800557703523, +0.51641853450349895), (+1.7635479532160940, +0.28414045921974401), (+1.1094854204918616, +0.91209187529065983), (+1.2490287697034639, +0.56499604673395454), (+1.2670164512074555, +0.59195715850554231), (+1.0923604304835606, +0.76699725403667807), (+1.1783946119515862, +0.51427961899649333), (+1.5054257727632818, +0.58428584880556023), (+1.3256489565226928, +0.18098396826457139), (+1.6610805953894188, +0.51289294068301450), (+1.0792397579250150, +0.86234816798267810), (+1.8088275502330040, +0.16408476903754327), (+1.9655777001653800, +0.60714484866956797), (+1.8337402717335567, +0.50129657494060875), (+1.5698452614471849, +0.21838346790939123), (+1.4644849221203566, +0.68282076383351042), (+1.9954564201640306, +0.83442151894773786), (+1.9074472271850116, +0.47716409339748261), (+1.6665439313485935, +0.95914126396244470E-1), (+1.0282461101186973, +0.72172773124404643)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+31

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.20171944553008913480498598672107852, +0.701238288978995483409006027463621274), (+1.23275552573668503893900462076107774, +0.830909452268448582142944614530998996), (+1.92530012609312269839962182666065302, +0.259049848033505003997663302665174794), (+1.06706938465690074170973902286673516, +0.539257271518888637636183140013331765), (+1.60148925745699815526555798570582983, +0.228320092835318462101568125182758848), (+1.40708834477261111934036425645124545, +0.490977372646144013177735627101584018), (+1.40583988195698166140669949345181044, +0.642871823347741219223953610259789227), (+1.25786917130429557811201316493179527, +0.699208672461258106262396564573463020), (+1.94740645767291539495887961032497372, +0.928798148937859568357384335649927659), (+1.27072061392607964055557870089975549, +0.289479656752581446349345607603842129), (+1.26204275925998604336164117135115397, +0.145122130998671318382472546850184711), (+1.10163593137141327124833903920403349, +0.885003914099204085093382264965607302E-1), (+1.42020533554193454072006356693968209, +0.244903318456372957136753423718089435), (+1.97466396092416102873229769281620779, +0.304485929380993697460988666091614147), (+1.53919546899627090344370711885223364, +0.346056912252671449569828410618606812), (+1.16681490847434136046021769998981468, +0.174629642705301912852452148341554381), (+1.54801175926433525177694331844901535, +0.834376342788517093802442830578931946), (+1.18962008232938554868791217489396751, +0.474932933190052367557627509361312031), (+1.67344284572252471272891819471204481, +0.279824844442441809159076893831735433), (+1.44044160483933727203114418234363092, +0.512565125198389766458047664918803397), (+1.63102369153631994215390152108666256, +0.321081213481317662792791227823394240), (+1.10148879944585389199206282390511017, +0.707227441437251778954859690238905364), (+1.02721769209328632951260115281468502, +0.959726515649107249059613646478790502), (+1.28513176496972693036789255436713294, +0.665986279936896310343603954497019760), (+1.55010342833044116250233295357650206, +0.652424627173603547440926344097968467), (+1.81987729097309756582756036499593745, +0.160712610621431148915221200909697320), (+1.02387758022043002398308054689418615, +0.874719090003892553009449804680408824), (+1.79176764723049475474491807393610590, +0.636528594249422444929529714081635908), (+1.64351366083515953668967755555519218, +0.400850170210630491819203357535824931), (+1.64716609714786847307288142007788120, +0.564014716222138570808108198982210968), (+1.96239990565175235198188011900039530, +0.112046267744014002167451464182989920)

143

144adat = getFFTR(getFFTF(data)) / size(data)

145adat

146(+1.20171944553008913480498598672107640, +0.701238288978995483409006027463620599), (+1.23275552573668503893900462076107793, +0.830909452268448582142944614530999189), (+1.92530012609312269839962182666065360, +0.259049848033505003997663302665174842), (+1.06706938465690074170973902286673536, +0.539257271518888637636183140013331765), (+1.60148925745699815526555798570583002, +0.228320092835318462101568125182758968), (+1.40708834477261111934036425645124545, +0.490977372646144013177735627101583969), (+1.40583988195698166140669949345181063, +0.642871823347741219223953610259789227), (+1.25786917130429557811201316493179546, +0.699208672461258106262396564573462923), (+1.94740645767291539495887961032497372, +0.928798148937859568357384335649927948), (+1.27072061392607964055557870089975587, +0.289479656752581446349345607603842226), (+1.26204275925998604336164117135115436, +0.145122130998671318382472546850184735), (+1.10163593137141327124833903920403349, +0.885003914099204085093382264965608506E-1), (+1.42020533554193454072006356693968209, +0.244903318456372957136753423718089363), (+1.97466396092416102873229769281620721, +0.304485929380993697460988666091614147), (+1.53919546899627090344370711885223383, +0.346056912252671449569828410618606812), (+1.16681490847434136046021769998981487, +0.174629642705301912852452148341553996), (+1.54801175926433525177694331844901554, +0.834376342788517093802442830578932042), (+1.18962008232938554868791217489396770, +0.474932933190052367557627509361312176), (+1.67344284572252471272891819471204423, +0.279824844442441809159076893831735337), (+1.44044160483933727203114418234363073, +0.512565125198389766458047664918803397), (+1.63102369153631994215390152108666256, +0.321081213481317662792791227823394240), (+1.10148879944585389199206282390511037, +0.707227441437251778954859690238905653), (+1.02721769209328632951260115281468541, +0.959726515649107249059613646478790695), (+1.28513176496972693036789255436713275, +0.665986279936896310343603954497019857), (+1.55010342833044116250233295357650226, +0.652424627173603547440926344097968371), (+1.81987729097309756582756036499593745, +0.160712610621431148915221200909697175), (+1.02387758022043002398308054689418635, +0.874719090003892553009449804680408920), (+1.79176764723049475474491807393610590, +0.636528594249422444929529714081635908), (+1.64351366083515953668967755555519256, +0.400850170210630491819203357535824883), (+1.64716609714786847307288142007788198, +0.564014716222138570808108198982211064), (+1.96239990565175235198188011900039568, +0.112046267744014002167451464182990065)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+68

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.70921588, +1.29317474, +1.85084844, +1.49181199, +1.23879957, +1.07509422, +1.73611581, +1.46222162, +1.51066041, +1.56648374, +1.86772299, +1.90350163, +1.09298468, +1.35493016, +1.26842237, +1.13578677, +1.35298204, +1.56898141, +1.70811236, +1.28438711, +1.85194564, +1.49077201, +1.79977989, +1.22629452, +1.74362206, +1.38448787, +1.22192204, +1.87747908, +1.23758566, +1.42002308, +1.24722147, +1.75697684, +1.15326440, +1.57901168, +1.27148569, +1.89601779, +1.94472694, +1.01705813, +1.18405938, +1.39460814, +1.70133007, +1.31620789, +1.42881703, +1.65122831, +1.78385568, +1.58590782, +1.55441546, +1.49815810, +1.63958144, +1.42363000, +1.65407109, +1.91743422, +1.55051732, +1.37979293, +1.26427126, +1.49125266, +1.26437831, +1.86778665, +1.76934624, +1.89681280, +1.27265823, +1.56729460, +1.20584917, +1.47623920, +1.94132459, +1.86999989, +1.26083553, +1.40881717

160

161adat = getFFTR(getFFTF(data)) / size(data)

162adat

163+1.70921576, +1.29317474, +1.85084844, +1.49181187, +1.23879969, +1.07509434, +1.73611605, +1.46222186, +1.51066029, +1.56648374, +1.86772263, +1.90350139, +1.09298480, +1.35492992, +1.26842225, +1.13578689, +1.35298204, +1.56898153, +1.70811212, +1.28438711, +1.85194552, +1.49077189, +1.79977977, +1.22629488, +1.74362206, +1.38448775, +1.22192228, +1.87747884, +1.23758602, +1.42002273, +1.24722159, +1.75697684, +1.15326464, +1.57901132, +1.27148569, +1.89601743, +1.94472682, +1.01705801, +1.18405938, +1.39460826, +1.70133018, +1.31620753, +1.42881703, +1.65122831, +1.78385568, +1.58590758, +1.55441558, +1.49815822, +1.63958156, +1.42363012, +1.65407109, +1.91743422, +1.55051732, +1.37979293, +1.26427126, +1.49125254, +1.26437831, +1.86778617, +1.76934588, +1.89681268, +1.27265823, +1.56729472, +1.20584893, +1.47623920, +1.94132459, +1.87000000, +1.26083577, +1.40881741

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+73

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.8716114312008183, +1.7090058691471310, +1.0657520770575739, +1.1181962500278493, +1.3159815452930208, +1.6601616560877206, +1.4242085496910466, +1.3782434604596914, +1.5302702291956605, +1.1849884597542033, +1.5758039795531655, +1.8771831272233366, +1.3217720599718419, +1.1579414748969454, +1.5000386989941701, +1.1088858412629912, +1.3062903967900916, +1.7853642534486460, +1.1413278927589703, +1.5060465050805911, +1.3606895140188104, +1.6999071970484625, +1.1920903333080308, +1.4121230978447816, +1.7241720932026023, +1.6664723179081684, +1.0433240752484529, +1.3826561772383215, +1.5579562214606653, +1.0097503880696350, +1.8447891455721472, +1.9576971495347379, +1.1515064574192595, +1.6278416141309124, +1.3587289022823246, +1.3270315133568764, +1.2870737976911233, +1.4001954943665649, +1.7478071912995388, +1.2187991705504198, +1.0656050008425821, +1.1981758439159083, +1.8494839235500393, +1.2039087022860970, +1.2074651948843989, +1.4377108748457967, +1.6539371834450680, +1.8542658972314445, +1.3348594412087058, +1.0068004206272319, +1.7573048510930929, +1.3634055668775127, +1.5447657857646140, +1.0635842711474526, +1.5073946367896811, +1.9114730509024822, +1.7319844118852199, +1.8448848551884809, +1.8766153667541414, +1.4616500970481230, +1.0646963114764938, +1.8280694889801459, +1.5790874056178339, +1.5885513887332157, +1.2580678196032404, +1.4124416892301710, +1.0185663715740043, +1.6390456754570086, +1.3685969948013725, +1.2416538874303624, +1.7540309983616571, +1.0668844848868118, +1.4321071192768167

177

178adat = getFFTR(getFFTF(data)) / size(data)

179adat

180+1.8716114312008145, +1.7090058691471297, +1.0657520770575708, +1.1181962500278464, +1.3159815452930177, +1.6601616560877210, +1.4242085496910457, +1.3782434604596898, +1.5302702291956642, +1.1849884597541973, +1.5758039795531691, +1.8771831272233452, +1.3217720599718383, +1.1579414748969401, +1.5000386989941790, +1.1088858412629821, +1.3062903967900894, +1.7853642534486642, +1.1413278927589545, +1.5060465050806009, +1.3606895140188024, +1.6999071970484809, +1.1920903333080162, +1.4121230978447812, +1.7241720932026106, +1.6664723179081851, +1.0433240752484292, +1.3826561772383241, +1.5579562214606837, +1.0097503880695993, +1.8447891455721699, +1.9576971495347695, +1.1515064574192244, +1.6278416141309346, +1.3587289022823139, +1.3270315133568762, +1.2870737976911253, +1.4001954943665671, +1.7478071912995687, +1.2187991705504009, +1.0656050008425706, +1.1981758439158938, +1.8494839235500795, +1.2039087022860786, +1.2074651948843924, +1.4377108748457985, +1.6539371834450747, +1.8542658972314625, +1.3348594412087011, +1.0068004206272052, +1.7573048510931193, +1.3634055668775025, +1.5447657857646260, +1.0635842711474359, +1.5073946367896818, +1.9114730509024955, +1.7319844118852190, +1.8448848551884860, +1.8766153667541490, +1.4616500970481241, +1.0646963114764785, +1.8280694889801588, +1.5790874056178332, +1.5885513887332203, +1.2580678196032358, +1.4124416892301741, +1.0185663715739972, +1.6390456754570131, +1.3685969948013696, +1.2416538874303584, +1.7540309983616591, +1.0668844848868073, +1.4321071192768144

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+94

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.20782261685759371710060080314749807, +1.20010601153701595974419048387320673, +1.17047779374490244479516139722248822, +1.62797604175632142056612499590715441, +1.89681828811135632331308962122106428, +1.83413329211868452925638141399352686, +1.36685884991513019167597475783968194, +1.27107943510599513087770068544337034, +1.84138973209047492038509434436306592, +1.26856934979062550370227086836758717, +1.98175755383599189409261536548398575, +1.15225373170221246729043960268508699, +1.39952852214622480430954552560040540, +1.91710501327094634407082212598635089, +1.64799510868462239181820623984732323, +1.10531559083730101288304771762274390, +1.62549419376943755241775890550804641, +1.38209606319982153528596861378652244, +1.41726646846067496549235019885324197, +1.28882656773167920622705311437241116, +1.62630299884497847579670249968280090, +1.74924011648007261766167502693939919, +1.45367645241956789665269561222170964, +1.24822174223017543368883365749667406, +1.88014191213937871937232099082781088, +1.38289939207597220126057265546441446, +1.64759585510105435123860536431279933, +1.64650493149162114866674459625418782, +1.16905735649247218187947319567994934, +1.49196121447612396165877600225441073, +1.80074633117780306999930900169851725, +1.87279315523594293871161621863163699, +1.89509128797724122805384376635960042, +1.99666376752234622068811457392392863, +1.75287653387943653306865156725079319, +1.16606150994571536213712786676646184, +1.59387416054960858549774288411463563, +1.27935513784832858570736241437597219, +1.03135084403947403381086389935729887, +1.48165480510599488503860372504043486, +1.82566127054802947849411051275176487, +1.01003542617880105655252526650390409, +1.68068536178469130263244021398668171, +1.26006924089552985555124767877972206, +1.37572824868908341296539702485284099, +1.57194987334590480134154437036929626, +1.38061035850633532657723316328765508, +1.15795389697647098080054348629779840, +1.82145469272783470798747414736072287, +1.92786717047838994250058807152747529, +1.14454480568555955177528788007290303, +1.17951040127391296525354933167475486, +1.65806224602429960009723923187279546, +1.43614353598745749202233910689512822, +1.76972059930739726790800094950318588, +1.73609838425432425183248921090804616, +1.87080484045184386276446010277202620, +1.11168638580328615347496691522857778, +1.15873838935699086215385714567582137, +1.39215850559630233770217379502691110, +1.22130275377778938902131897071943276, +1.37363702954389018175730273982438248, +1.35375816067684226714783936912067500, +1.29392357852484962334375653511157391, +1.17803080612559896249846396058361938, +1.63513703586732061353183558746000451, +1.61934111607835945282068320114638022, +1.06488804931498740991516342272049848, +1.07645372139296168256419550944148565, +1.79633989159473067150743611085184856, +1.14325088126690653841207472446423930, +1.91933886330653855502350662452190155, +1.66383814597948073445494172223399383, +1.10437108249516123076842212705895317, +1.59623791167574627512525412762408349, +1.63183735379829134274142420690583143, +1.63036385025057163289865644985474582, +1.01150775735864713053427871480641284, +1.83936144554565015375745938845749616, +1.91211525996449279546209630891634872, +1.77108321703106018135246874373333938, +1.05607125214875403010821614371612798, +1.70384153457613512983470683899716366, +1.11913599001252191134638108512381590, +1.56542721963724434812617850318610550, +1.03761341042648628232344993558651440, +1.09465947466107677417411666167207877, +1.44604740835790226954148986666695146, +1.43473154404962870269082979754660722, +1.66251249662849352110551721768035306, +1.08201846783800635594587298467443215, +1.15177898606533417494402591736788477, +1.05328990855673735644548691864110555, +1.19951678946250700608149631920322188

194

195adat = getFFTR(getFFTF(data)) / size(data)

196adat

197+1.20782261685759371710060080314749749, +1.20010601153701595974419048387320673, +1.17047779374490244479516139722248841, +1.62797604175632142056612499590715460, +1.89681828811135632331308962122106409, +1.83413329211868452925638141399352763, +1.36685884991513019167597475783968194, +1.27107943510599513087770068544336957, +1.84138973209047492038509434436306438, +1.26856934979062550370227086836758737, +1.98175755383599189409261536548398497, +1.15225373170221246729043960268508660, +1.39952852214622480430954552560040501, +1.91710501327094634407082212598634993, +1.64799510868462239181820623984732381, +1.10531559083730101288304771762274409, +1.62549419376943755241775890550804699, +1.38209606319982153528596861378652187, +1.41726646846067496549235019885324216, +1.28882656773167920622705311437241212, +1.62630299884497847579670249968279974, +1.74924011648007261766167502693939861, +1.45367645241956789665269561222170810, +1.24822174223017543368883365749667309, +1.88014191213937871937232099082780953, +1.38289939207597220126057265546441427, +1.64759585510105435123860536431279914, +1.64650493149162114866674459625418762, +1.16905735649247218187947319567994876, +1.49196121447612396165877600225441035, +1.80074633117780306999930900169851840, +1.87279315523594293871161621863163718, +1.89509128797724122805384376635960119, +1.99666376752234622068811457392393036, +1.75287653387943653306865156725079339, +1.16606150994571536213712786676646107, +1.59387416054960858549774288411463640, +1.27935513784832858570736241437597296, +1.03135084403947403381086389935729907, +1.48165480510599488503860372504043505, +1.82566127054802947849411051275176410, +1.01003542617880105655252526650390235, +1.68068536178469130263244021398668267, +1.26006924089552985555124767877972225, +1.37572824868908341296539702485283945, +1.57194987334590480134154437036929588, +1.38061035850633532657723316328765719, +1.15795389697647098080054348629780033, +1.82145469272783470798747414736072576, +1.92786717047838994250058807152747914, +1.14454480568555955177528788007290168, +1.17951040127391296525354933167475370, +1.65806224602429960009723923187279623, +1.43614353598745749202233910689512784, +1.76972059930739726790800094950318453, +1.73609838425432425183248921090804597, +1.87080484045184386276446010277202697, +1.11168638580328615347496691522857720, +1.15873838935699086215385714567582157, +1.39215850559630233770217379502691130, +1.22130275377778938902131897071943334, +1.37363702954389018175730273982438228, +1.35375816067684226714783936912067557, +1.29392357852484962334375653511157507, +1.17803080612559896249846396058362034, +1.63513703586732061353183558746000509, +1.61934111607835945282068320114638022, +1.06488804931498740991516342272049790, +1.07645372139296168256419550944148488, +1.79633989159473067150743611085184894, +1.14325088126690653841207472446423815, +1.91933886330653855502350662452190039, +1.66383814597948073445494172223399267, +1.10437108249516123076842212705895221, +1.59623791167574627512525412762408234, +1.63183735379829134274142420690583124, +1.63036385025057163289865644985474620, +1.01150775735864713053427871480641342, +1.83936144554565015375745938845749655, +1.91211525996449279546209630891634776, +1.77108321703106018135246874373333958, +1.05607125214875403010821614371612856, +1.70384153457613512983470683899716347, +1.11913599001252191134638108512381551, +1.56542721963724434812617850318610531, +1.03761341042648628232344993558651382, +1.09465947466107677417411666167207838, +1.44604740835790226954148986666695185, +1.43473154404962870269082979754660722, +1.66251249662849352110551721768035248, +1.08201846783800635594587298467443176, +1.15177898606533417494402591736788477, +1.05328990855673735644548691864110613, +1.19951678946250700608149631920322188

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+50

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.97012186, +0.561059177), (+1.02023339, +0.735588968), (+1.61507273, +0.459895611), (+1.43431711, +0.994953871), (+1.54265022, +0.269565821), (+1.19892502, +0.703397274), (+1.94179702, +0.964444578), (+1.63818216, +0.806819201E-1), (+1.70923364, +0.156575024), (+1.61036277, +0.568919659), (+1.98274684, +0.412800193), (+1.17451680, +0.462292671), (+1.06311071, +0.598714530), (+1.91862988, +0.278699696), (+1.31615114, +0.892426074), (+1.29349232, +0.402780771E-1), (+1.43914306, +0.762999654E-1), (+1.86242056, +0.211368859), (+1.48060727, +0.443938792), (+1.50606096, +0.704047322), (+1.29321849, +0.572355866), (+1.03140128, +0.903642833), (+1.21404827, +0.346651971), (+1.91080570, +0.697337329), (+1.89904571, +0.824631035), (+1.40743673, +0.874270856), (+1.10511446, +0.572515607), (+1.97505975, +0.839268982), (+1.90601969, +0.418585002), (+1.59524262, +0.475977063), (+1.04673791, +0.642402768), (+1.92370224, +0.888718903), (+1.67732763, +0.377870023), (+1.87603140, +0.870959103), (+1.01077747, +0.588272572), (+1.80426359, +0.376486957), (+1.01516843, +0.510640085), (+1.90809369, +0.438640416), (+1.12514281, +0.526228428), (+1.90803671, +0.138196826), (+1.56339669, +0.918052375), (+1.98108864, +0.232495487), (+1.89265549, +0.914114475), (+1.73331666, +0.869677067E-1), (+1.71876693, +0.269171298), (+1.17476106, +0.869091809), (+1.43553197, +0.803813279), (+1.49732637, +0.146031678), (+1.10605431, +0.551780879), (+1.06808901, +0.351256132)

211

212adat = getFFTR(getFFTF(data)) / size(data)

213adat

214(+1.97012126, +0.561058939), (+1.02023315, +0.735588789), (+1.61507261, +0.459895581), (+1.43431735, +0.994953871), (+1.54264998, +0.269565761), (+1.19892466, +0.703397214), (+1.94179714, +0.964444757), (+1.63818252, +0.806819350E-1), (+1.70923400, +0.156575084), (+1.61036301, +0.568919778), (+1.98274660, +0.412800193), (+1.17451692, +0.462292641), (+1.06311083, +0.598714650), (+1.91863024, +0.278699785), (+1.31615114, +0.892426312), (+1.29349232, +0.402779765E-1), (+1.43914318, +0.763000473E-1), (+1.86242080, +0.211368784), (+1.48060763, +0.443938971), (+1.50606108, +0.704047382), (+1.29321814, +0.572355866), (+1.03140128, +0.903642714), (+1.21404850, +0.346652150), (+1.91080630, +0.697337329), (+1.89904606, +0.824631035), (+1.40743625, +0.874270618), (+1.10511434, +0.572515428), (+1.97505963, +0.839269102), (+1.90601969, +0.418584943), (+1.59524214, +0.475977033), (+1.04673755, +0.642402649), (+1.92370212, +0.888719022), (+1.67732787, +0.377870113), (+1.87603176, +0.870959163), (+1.01077759, +0.588272870), (+1.80426359, +0.376486927), (+1.01516867, +0.510639966), (+1.90809405, +0.438640594), (+1.12514329, +0.526228428), (+1.90803695, +0.138196930), (+1.56339657, +0.918052375), (+1.98108888, +0.232495502), (+1.89265561, +0.914114475), (+1.73331714, +0.869677141E-1), (+1.71876681, +0.269171447), (+1.17476070, +0.869091511), (+1.43553209, +0.803813338), (+1.49732685, +0.146031559), (+1.10605443, +0.551781058), (+1.06808925, +0.351256281)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+95

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.7809025523172317, +0.67128796480053277), (+1.1057384232732899, +0.10269736056992540), (+1.5038006636258261, +0.23193678831243103), (+1.8745442811692110, +0.20811856813677554), (+1.3158216740454802, +0.98879680763570721), (+1.5381410333708039, +0.48276194598150368), (+1.4005033718980027, +0.83725546048396138), (+1.7057693366821387, +0.26302807408405871), (+1.3723472067866118, +0.25173551781116932), (+1.7259185502558645, +0.11251499200201509), (+1.4419149746188173, +0.52290450331638472), (+1.7190244919285251, +0.64683909766250347), (+1.8928430158403025, +0.63134970267810220), (+1.7745972331460522, +0.20926180650996895), (+1.4710802019096065, +0.55094609017580543), (+1.8453777540584895, +0.60374258317914864), (+1.8152672527988196, +0.68240445868704824), (+1.1464639561814289, +0.17070252646369488), (+1.0632025780003185, +0.33489721153481411), (+1.5279882874452628, +0.38331985035315019), (+1.8332814646982691, +0.43296705404586977), (+1.0870152731755454, +0.90489173332421091), (+1.4017289560411577, +0.32094657080838096), (+1.9992554477752997, +0.90917711500124698), (+1.5761305998320969, +0.58417514485874644), (+1.0099582868176353, +0.53820016544550198), (+1.3939178084042392, +0.49262190430027253), (+1.9309171472599718, +0.68982463233891755), (+1.0897010348012179, +0.10114833728598971), (+1.3532927513056798, +0.58734270011469913E-1), (+1.5935151089652997, +0.51774295697131334), (+1.1538532407111715, +0.59166077795673711), (+1.3288171728910356, +0.69658477834640420), (+1.1854456094128487, +0.70174148026676408), (+1.5107619782627215, +0.74486431712593859), (+1.4621904179046072, +0.64673118943702557), (+1.7960125828462592, +0.99002278298803181), (+1.1998411720206743, +0.23621478228633230), (+1.6533990520432189, +0.83060894501892324), (+1.7408480744714434, +0.21631318409108813E-2), (+1.0655068655183442, +0.99337340586650613), (+1.7312874738402781, +0.51276962570645657), (+1.3561960206070807, +0.79192837046057896), (+1.6635816536591592, +0.56499974623025828), (+1.9975372359379118, +0.97306778898609747), (+1.6531547061337588, +0.67496680266460818), (+1.8814273032439077, +0.80396740948573142), (+1.9124747376935050, +0.73156486283524080), (+1.3417311457339338, +0.65252107232216550), (+1.5672681948368072, +0.38610418535572399), (+1.5350349783271482, +0.30638572289895738), (+1.3708117679348337, +0.35385014854688290), (+1.8567757588357576, +0.65729341046899936), (+1.7784511667410805, +0.83770390628517444), (+1.9494639523219923, +0.34471250532897646), (+1.5425843362604363, +0.14302047858561240), (+1.3033065736665725, +0.18778912694974004), (+1.2639609808728509, +0.16503456021603102), (+1.6952237185629975, +0.24701421764212228), (+1.5977963949658851, +0.98261854501006107E-1), (+1.0264905024936506, +0.26937778059512585E-1), (+1.8025266222293701, +0.15657712247141886), (+1.5776656108954143, +0.60921180312168011), (+1.6385547414561497, +0.83977114741806402), (+1.6929843857945681, +0.64331015663042079), (+1.8455901043125278, +0.45017716284467824E-3), (+1.4480051741244806, +0.45549869522669162), (+1.9728474092861719, +0.25293972894149030E-1), (+1.4425283190059137, +0.12482586480817948), (+1.9404896837285697, +0.40807726241091569), (+1.0667545260899800, +0.75337313963552710), (+1.7989326772728582, +0.26614861127474265), (+1.2654133263737473, +0.86768531980820296), (+1.9347404863742423, +0.90151763964681941), (+1.5848033262894630, +0.62911535597425117), (+1.3631675397897400, +0.82563652079821859E-1), (+1.1270183826661615, +0.89369841798270777), (+1.6406201557408790, +0.39410077785409880), (+1.9572557601911145, +0.83958797873493196), (+1.0585361448464825, +0.82433059470137127), (+1.3042221867227100, +0.39469385181952088), (+1.1542411482224249, +0.87067859048160612), (+1.8171654065797962, +0.59428920247586459), (+1.4521768727133995, +0.99968897770518295), (+1.2819720242956349, +0.61576750986318018), (+1.9301991125897833, +0.10490313607547241), (+1.8807884368481385, +0.33719392411188276), (+1.2615257372195652, +0.91176015890994411), (+1.1247507301382411, +0.28356452801439125), (+1.1950878699514877, +0.28289170076949421E-2), (+1.7730220620555297, +0.50893060918839139), (+1.6714028001108523, +0.85925591270028578), (+1.9581208975319613, +0.87930661821783829), (+1.6854457287924807, +0.33996029206586620), (+1.2922260666571250, +0.93000668091632777)

228

229adat = getFFTR(getFFTF(data)) / size(data)

230adat

231(+1.7809025523172346, +0.67128796480053365), (+1.1057384232732885, +0.10269736056992519), (+1.5038006636258257, +0.23193678831243092), (+1.8745442811692110, +0.20811856813677529), (+1.3158216740454807, +0.98879680763570699), (+1.5381410333708041, +0.48276194598150390), (+1.4005033718980031, +0.83725546048396171), (+1.7057693366821398, +0.26302807408405926), (+1.3723472067866127, +0.25173551781116948), (+1.7259185502558658, +0.11251499200201547), (+1.4419149746188189, +0.52290450331638494), (+1.7190244919285265, +0.64683909766250358), (+1.8928430158403038, +0.63134970267810187), (+1.7745972331460520, +0.20926180650996881), (+1.4710802019096061, +0.55094609017580554), (+1.8453777540584897, +0.60374258317914886), (+1.8152672527988194, +0.68240445868704824), (+1.1464639561814285, +0.17070252646369463), (+1.0632025780003180, +0.33489721153481400), (+1.5279882874452644, +0.38331985035315097), (+1.8332814646982678, +0.43296705404586933), (+1.0870152731755447, +0.90489173332421058), (+1.4017289560411574, +0.32094657080838090), (+1.9992554477752995, +0.90917711500124665), (+1.5761305998320967, +0.58417514485874633), (+1.0099582868176351, +0.53820016544550220), (+1.3939178084042394, +0.49262190430027236), (+1.9309171472599724, +0.68982463233891766), (+1.0897010348012184, +0.10114833728598972), (+1.3532927513056809, +0.58734270011470281E-1), (+1.5935151089653004, +0.51774295697131356), (+1.1538532407111717, +0.59166077795673722), (+1.3288171728910354, +0.69658477834640398), (+1.1854456094128483, +0.70174148026676431), (+1.5107619782627213, +0.74486431712593870), (+1.4621904179046070, +0.64673118943702557), (+1.7960125828462585, +0.99002278298803148), (+1.1998411720206739, +0.23621478228633183), (+1.6533990520432209, +0.83060894501892379), (+1.7408480744714421, +0.21631318409105621E-2), (+1.0655068655183437, +0.99337340586650569), (+1.7312874738402773, +0.51276962570645623), (+1.3561960206070802, +0.79192837046057885), (+1.6635816536591590, +0.56499974623025795), (+1.9975372359379111, +0.97306778898609747), (+1.6531547061337595, +0.67496680266460818), (+1.8814273032439079, +0.80396740948573131), (+1.9124747376935058, +0.73156486283524125), (+1.3417311457339343, +0.65252107232216561), (+1.5672681948368081, +0.38610418535572383), (+1.5350349783271489, +0.30638572289895749), (+1.3708117679348333, +0.35385014854688307), (+1.8567757588357572, +0.65729341046899981), (+1.7784511667410798, +0.83770390628517433), (+1.9494639523219919, +0.34471250532897624), (+1.5425843362604352, +0.14302047858561226), (+1.3033065736665710, +0.18778912694973968), (+1.2639609808728529, +0.16503456021603150), (+1.6952237185629961, +0.24701421764212211), (+1.5977963949658847, +0.98261854501005982E-1), (+1.0264905024936504, +0.26937778059512439E-1), (+1.8025266222293692, +0.15657712247141853), (+1.5776656108954143, +0.60921180312167966), (+1.6385547414561497, +0.83977114741806391), (+1.6929843857945683, +0.64331015663042057), (+1.8455901043125280, +0.45017716284450525E-3), (+1.4480051741244813, +0.45549869522669167), (+1.9728474092861727, +0.25293972894148978E-1), (+1.4425283190059142, +0.12482586480817962), (+1.9404896837285699, +0.40807726241091619), (+1.0667545260899798, +0.75337313963552710), (+1.7989326772728578, +0.26614861127474243), (+1.2654133263737470, +0.86768531980820252), (+1.9347404863742419, +0.90151763964681886), (+1.5848033262894621, +0.62911535597425072), (+1.3631675397897389, +0.82563652079821540E-1), (+1.1270183826661633, +0.89369841798270810), (+1.6406201557408779, +0.39410077785409853), (+1.9572557601911142, +0.83958797873493152), (+1.0585361448464821, +0.82433059470137127), (+1.3042221867227095, +0.39469385181952082), (+1.1542411482224246, +0.87067859048160601), (+1.8171654065797958, +0.59428920247586448), (+1.4521768727134003, +0.99968897770518317), (+1.2819720242956349, +0.61576750986318052), (+1.9301991125897837, +0.10490313607547261), (+1.8807884368481393, +0.33719392411188276), (+1.2615257372195665, +0.91176015890994400), (+1.1247507301382416, +0.28356452801439103), (+1.1950878699514873, +0.28289170076951781E-2), (+1.7730220620555297, +0.50893060918839128), (+1.6714028001108521, +0.85925591270028578), (+1.9581208975319613, +0.87930661821783807), (+1.6854457287924793, +0.33996029206586581), (+1.2922260666571241, +0.93000668091632721)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+29

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.71462369497585900193945736896126979, +0.495971379970464701509475015909858055), (+1.37516942758494830046214042798358052, +0.539692980505963707968045125451732338), (+1.49452337135317392712174136862533680, +0.663542752042514193657116857773283137), (+1.99360834511163259578891822463758652, +0.489795683714318809217920668424474098), (+1.40063127184452843837145214219039464, +0.904032802097751145186867563428774592), (+1.79566404519997307065417393731283488, +0.737442969487120036453407963721677457), (+1.81485231122612493318649628621648297, +0.294040792587014557146991496315791495), (+1.88697658350953716229225754431871342, +0.509815703949554306959665412110962358), (+1.43901576900716604882938255960533564, +0.500207255513677208831557730440666176), (+1.87232670592851039363336165533902876, +0.423586475521002461116188416965781343), (+1.38426429872755151704150587608328217, +0.377217239697652017320737395733510299), (+1.48336127051704611108064210120800356, +0.426966280965142912436765676921116718), (+1.15687533533162945945360494347534496, +0.158526454289895349547072887783082203), (+1.86641622184264665235889234841382457, +0.738331530198782466306304325368813164), (+1.50524039927929023392050046056475504, +0.990849235748029807494153740673379233), (+1.06148846613246416556504147564684950, +0.468947602084113826991279981666950508), (+1.89436599354135848999318907355350756, +0.398768197042775046759697187918515957), (+1.29671820588262696417666064925184393, +0.194597388212881322583344583428104423), (+1.55221011609377403958722947902176104, +0.709433237676711559018091498169314557), (+1.13280680989838217337399902225753913, +0.428934806409074075724999656225916089), (+1.88702031524817295877162695592140407, +0.856845884047928672190179978807845987), (+1.89155795735867552262945603404741048, +0.751345923880648776214201667426982246), (+1.29850357952486517066625226296502598, +0.508320517728026381765320391874895477), (+1.84621893078349411679415571429726941, +0.452552107043565962608554401534115533), (+1.96801641540970211576508740903753184, +0.309700680241608154771561895975825643), (+1.96109139349573038277560733695396891, +0.335370720545714218701193088441716488), (+1.42164252394376571408112942215262670, +0.864694369771972980743014812577729200), (+1.10699239057754658991663011997121116, +0.579473620970213296852851194821524173), (+1.19980837152355783109947519659207811, +0.107222735906229129232522783465902335E-1)

245

246adat = getFFTR(getFFTF(data)) / size(data)

247adat

248(+1.71462369497585900193945736896126979, +0.495971379970464701509475015909858103), (+1.37516942758494830046214042798358110, +0.539692980505963707968045125451732242), (+1.49452337135317392712174136862533603, +0.663542752042514193657116857773283426), (+1.99360834511163259578891822463758748, +0.489795683714318809217920668424474194), (+1.40063127184452843837145214219039464, +0.904032802097751145186867563428774592), (+1.79566404519997307065417393731283507, +0.737442969487120036453407963721677746), (+1.81485231122612493318649628621648316, +0.294040792587014557146991496315791543), (+1.88697658350953716229225754431871304, +0.509815703949554306959665412110962358), (+1.43901576900716604882938255960533583, +0.500207255513677208831557730440666273), (+1.87232670592851039363336165533902857, +0.423586475521002461116188416965781391), (+1.38426429872755151704150587608328198, +0.377217239697652017320737395733510203), (+1.48336127051704611108064210120800318, +0.426966280965142912436765676921116911), (+1.15687533533162945945360494347534515, +0.158526454289895349547072887783082468), (+1.86641622184264665235889234841382438, +0.738331530198782466306304325368813453), (+1.50524039927929023392050046056475485, +0.990849235748029807494153740673379137), (+1.06148846613246416556504147564684911, +0.468947602084113826991279981666950604), (+1.89436599354135848999318907355350756, +0.398768197042775046759697187918516101), (+1.29671820588262696417666064925184432, +0.194597388212881322583344583428104568), (+1.55221011609377403958722947902176085, +0.709433237676711559018091498169314653), (+1.13280680989838217337399902225753874, +0.428934806409074075724999656225915945), (+1.88702031524817295877162695592140388, +0.856845884047928672190179978807846180), (+1.89155795735867552262945603404741106, +0.751345923880648776214201667426982342), (+1.29850357952486517066625226296502578, +0.508320517728026381765320391874895477), (+1.84621893078349411679415571429726960, +0.452552107043565962608554401534115581), (+1.96801641540970211576508740903753203, +0.309700680241608154771561895975825884), (+1.96109139349573038277560733695396910, +0.335370720545714218701193088441716632), (+1.42164252394376571408112942215262766, +0.864694369771972980743014812577729489), (+1.10699239057754658991663011997121058, +0.579473620970213296852851194821524269), (+1.19980837152355783109947519659207849, +0.107222735906229129232522783465903629E-1)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+17

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.64928973, +1.44193268, +1.98113894, +1.82536340, +1.33067536, +1.08096826, +1.02164936, +1.25076318, +1.26602721, +1.65606344, +1.98961961, +1.11849451, +1.67244756, +1.61738586, +1.63955879, +1.38456249, +1.13676846

262

263adat = getFFTR(getFFTF(data)) / size(data)

264adat

265+1.64928949, +1.44193268, +1.98113883, +1.82536304, +1.33067513, +1.08096838, +1.02164936, +1.25076318, +1.26602709, +1.65606332, +1.98961926, +1.11849475, +1.67244756, +1.61738551, +1.63955855, +1.38456237, +1.13676858

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+72

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.2626896403096910, +1.1785646477302403, +1.4961137959162427, +1.2217023457289637, +1.9468291255820098, +1.8686048528907859, +1.9562127722485867, +1.2205435873225015, +1.1606277331564416, +1.7216868621822692, +1.1887983348847804, +1.3273767953490268, +1.2101137805022466, +1.4618236865607228, +1.0262460112817686, +1.5680652934428436, +1.4181685996938427, +1.2742064307477516, +1.2761772914870106, +1.9208764289432938, +1.6782668730173858, +1.2537117025515987, +1.4061237709536167, +1.2495161233768344, +1.8671724663377802, +1.8468817314527528, +1.3521617182846186, +1.5941575437558524, +1.7701418145932490, +1.2422759448803169, +1.2282752437238387, +1.5714029399789546, +1.6079720425298216, +1.1173668739381939, +1.7968282949182059, +1.1852516054428239, +1.9721295287253064, +1.9167318484020657, +1.0843342915020695, +1.6397202156926576, +1.7631967204247201, +1.8082058767825337, +1.7704736939831642, +1.1633210302853567, +1.1329682087209623, +1.5190730830842747, +1.3873103562135998, +1.9922890379211855, +1.0107222906579421, +1.5071608530349163, +1.5610172741295703, +1.9335098569046267, +1.0729128470988021, +1.3541123743975205, +1.6395145621714411, +1.6365385360043572, +1.6293574229056227, +1.8197620203144502, +1.1363809083577938, +1.7335321310626295, +1.5810903332145556, +1.8162303665511015, +1.6568023727857542, +1.2351242269531171, +1.1571282486268910, +1.1692330254987342, +1.9587846850063080, +1.2772096942762057, +1.7139170839807274, +1.7929956135313123, +1.3322672597630811, +1.2951210872885319

279

280adat = getFFTR(getFFTF(data)) / size(data)

281adat

282+1.2626896403096910, +1.1785646477302398, +1.4961137959162427, +1.2217023457289633, +1.9468291255820098, +1.8686048528907857, +1.9562127722485865, +1.2205435873225015, +1.1606277331564412, +1.7216868621822692, +1.1887983348847804, +1.3273767953490265, +1.2101137805022466, +1.4618236865607228, +1.0262460112817686, +1.5680652934428432, +1.4181685996938425, +1.2742064307477514, +1.2761772914870106, +1.9208764289432934, +1.6782668730173858, +1.2537117025515987, +1.4061237709536165, +1.2495161233768342, +1.8671724663377804, +1.8468817314527526, +1.3521617182846186, +1.5941575437558522, +1.7701418145932490, +1.2422759448803167, +1.2282752437238382, +1.5714029399789544, +1.6079720425298212, +1.1173668739381941, +1.7968282949182059, +1.1852516054428237, +1.9721295287253062, +1.9167318484020650, +1.0843342915020695, +1.6397202156926576, +1.7631967204247201, +1.8082058767825333, +1.7704736939831647, +1.1633210302853565, +1.1329682087209625, +1.5190730830842745, +1.3873103562135995, +1.9922890379211853, +1.0107222906579423, +1.5071608530349161, +1.5610172741295703, +1.9335098569046265, +1.0729128470988019, +1.3541123743975203, +1.6395145621714409, +1.6365385360043569, +1.6293574229056222, +1.8197620203144500, +1.1363809083577940, +1.7335321310626293, +1.5810903332145554, +1.8162303665511013, +1.6568023727857542, +1.2351242269531171, +1.1571282486268910, +1.1692330254987340, +1.9587846850063084, +1.2772096942762052, +1.7139170839807274, +1.7929956135313121, +1.3322672597630811, +1.2951210872885319

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+92

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.58046873722018781251979922949078058, +1.95713875241673729855695040928282532, +1.91292298210239116503738455973962326, +1.03260873025443577545208426770956239, +1.58380857237591919557595832808190765, +1.02132753907677960508880619305277582, +1.36484117976958453401295039732754041, +1.19800675604223514626646655751212190, +1.88276186999926577132285300416028448, +1.58500533261675628969340054689149675, +1.59698799373011020589672758492828270, +1.43414841362845828365163963464135536, +1.71276166732948316421995918623090419, +1.67050245972667072584240410927162240, +1.34878134017156798139792245993945260, +1.52217595775684249523760061070228892, +1.49555086080332107811905118499035819, +1.33085457072313858949111188645295928, +1.99699982095445887269352743680305410, +1.38725568530203757956510262120936331, +1.36105954803870144958417178499937258, +1.93671664147206177453847938308306269, +1.01168934363412628522358223140979929, +1.83125760278516409013249728080961258, +1.45559842663597368964519714434507238, +1.78450703542295737648709878507186622, +1.76101667056602647991684282746656801, +1.27636984419541915038808701324586254, +1.70161147975564590726763402065082764, +1.29499311802987015020073732269398479, +1.42972786265859546958099198904462936, +1.49417075476830350197125948176644443, +1.72750216435067222457377767275835841, +1.58249796606172942066220341994199170, +1.38680915889161586065271015463529713, +1.07937000457606036128222181690980120, +1.90470886308863467591959511595547570, +1.60892377462477182664895715270242096, +1.50494738655458163364213296962593440, +1.18933458051366787887484146527976400, +1.71693057159406042385057083638736210, +1.57057127253025143432780472644745749, +1.36120379201575793355326042506377271, +1.85536764672075465139599301792029163, +1.78562767757786173550800335230551843, +1.34400488577050892603726811055793702, +1.48917943163000550690136870063114456, +1.56319004374548075834139233058530166, +1.99046314346968768456914746598311850, +1.53462831294497750184187412090205716, +1.37945696380275902873943245157100839, +1.20181903826813937088575962091289714, +1.39482557178770214467497560617657340, +1.42179788210063207048504076424482637, +1.14913235782364297019783731676225984, +1.13503255714581922986224633450449802, +1.76812678472146223008579767706312757, +1.64425159897696459721624453662004420, +1.68454521824114793907775155197651011, +1.51435760164114361938853356830268441, +1.40744084537520380834554693112537850, +1.43084022059110218114179792149132814, +1.58407602539868899060786611388184589, +1.74929396730171075599605873660901553, +1.06523730535342473501613085386215255, +1.04680310665381006226852314579213964, +1.49797766093027968968380678017327579, +1.51023365758395088248181133496277935, +1.86980411178642061701639310126654701, +1.07059176206659130151457424766065915, +1.53304372418062136198582913888851011, +1.74810742188225581031544134007043904, +1.95327235951516830520412759264919189, +1.67523823713207337002023841493067381, +1.94764703497550449935765662870121667, +1.05191836979268108720299925499931536, +1.48527854904747310685569826190836883, +1.54361661053390191378889015387404817, +1.62452913188460728760526291783172773, +1.88910389811481059104650038313359296, +1.49827801475651377096593706850467817, +1.02425286428602358713049207730335416, +1.19921823933551592706491550079961174, +1.47838931775614872097650018571976872, +1.67441150265957524257517987633534093, +1.79881433803336770987311367804059672, +1.00878982621945151142356991145706497, +1.96824800115243359875611779712742080, +1.59962996472106518557114987554873107, +1.73023874842917219148499074130830900, +1.15579839890453460139719864483163184, +1.38456496176723171264676686849402459

296

297adat = getFFTR(getFFTF(data)) / size(data)

298adat

299+1.58046873722018781251979922949078115, +1.95713875241673729855695040928282609, +1.91292298210239116503738455973962326, +1.03260873025443577545208426770956297, +1.58380857237591919557595832808190822, +1.02132753907677960508880619305277659, +1.36484117976958453401295039732754099, +1.19800675604223514626646655751212209, +1.88276186999926577132285300416028486, +1.58500533261675628969340054689149713, +1.59698799373011020589672758492828251, +1.43414841362845828365163963464135555, +1.71276166732948316421995918623090400, +1.67050245972667072584240410927162259, +1.34878134017156798139792245993945240, +1.52217595775684249523760061070228911, +1.49555086080332107811905118499035915, +1.33085457072313858949111188645296005, +1.99699982095445887269352743680305314, +1.38725568530203757956510262120936389, +1.36105954803870144958417178499937277, +1.93671664147206177453847938308306308, +1.01168934363412628522358223140979987, +1.83125760278516409013249728080961200, +1.45559842663597368964519714434507354, +1.78450703542295737648709878507186641, +1.76101667056602647991684282746656763, +1.27636984419541915038808701324586254, +1.70161147975564590726763402065082841, +1.29499311802987015020073732269398594, +1.42972786265859546958099198904462974, +1.49417075476830350197125948176644405, +1.72750216435067222457377767275835938, +1.58249796606172942066220341994199228, +1.38680915889161586065271015463529713, +1.07937000457606036128222181690980158, +1.90470886308863467591959511595547589, +1.60892377462477182664895715270242135, +1.50494738655458163364213296962593421, +1.18933458051366787887484146527976419, +1.71693057159406042385057083638736268, +1.57057127253025143432780472644745846, +1.36120379201575793355326042506377310, +1.85536764672075465139599301792029125, +1.78562767757786173550800335230551670, +1.34400488577050892603726811055793587, +1.48917943163000550690136870063114321, +1.56319004374548075834139233058529973, +1.99046314346968768456914746598311676, +1.53462831294497750184187412090205601, +1.37945696380275902873943245157100742, +1.20181903826813937088575962091289579, +1.39482557178770214467497560617657437, +1.42179788210063207048504076424482752, +1.14913235782364297019783731676226042, +1.13503255714581922986224633450449860, +1.76812678472146223008579767706312776, +1.64425159897696459721624453662004440, +1.68454521824114793907775155197650953, +1.51435760164114361938853356830268383, +1.40744084537520380834554693112537965, +1.43084022059110218114179792149132871, +1.58407602539868899060786611388184589, +1.74929396730171075599605873660901515, +1.06523730535342473501613085386215428, +1.04680310665381006226852314579214099, +1.49797766093027968968380678017327617, +1.51023365758395088248181133496277973, +1.86980411178642061701639310126654759, +1.07059176206659130151457424766065992, +1.53304372418062136198582913888851069, +1.74810742188225581031544134007043847, +1.95327235951516830520412759264919112, +1.67523823713207337002023841493067439, +1.94764703497550449935765662870121609, +1.05191836979268108720299925499931593, +1.48527854904747310685569826190836960, +1.54361661053390191378889015387404856, +1.62452913188460728760526291783172734, +1.88910389811481059104650038313359296, +1.49827801475651377096593706850467798, +1.02425286428602358713049207730335512, +1.19921823933551592706491550079961154, +1.47838931775614872097650018571976891, +1.67441150265957524257517987633534151, +1.79881433803336770987311367804059691, +1.00878982621945151142356991145706497, +1.96824800115243359875611779712742061, +1.59962996472106518557114987554873126, +1.73023874842917219148499074130830977, +1.15579839890453460139719864483163222, +1.38456496176723171264676686849402459

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+75

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.47991574, +0.796103239), (+1.71308136, +0.997826397), (+1.39159954, +0.503172338), (+1.68589473, +0.838239908), (+1.00105977, +0.161563337), (+1.74654269, +0.414956808), (+1.09964800, +0.423979104), (+1.88035107, +0.412927270E-1), (+1.95292211, +0.238528013), (+1.84869289, +0.766828239), (+1.45821118, +0.960956812), (+1.97216010, +0.274456620), (+1.86907959, +0.110487938E-1), (+1.01300812, +0.389133513), (+1.47019887, +0.560395598), (+1.32358813, +0.199356616), (+1.14364338, +0.522884071), (+1.77937317, +0.461740494E-1), (+1.53366160, +0.290037274), (+1.02584934, +0.952246189E-1), (+1.60750508, +0.764610767E-1), (+1.02117062, +0.685152590), (+1.41941476, +0.506130695), (+1.97465158, +0.632715225E-1), (+1.81188691, +0.533396602E-1), (+1.81377673, +0.552625299), (+1.45590425, +0.358630419E-1), (+1.79539442, +0.761004746), (+1.50058222, +0.511629522), (+1.34189951, +0.221428990), (+1.35941529, +0.440452993), (+1.87451851, +0.826249897), (+1.20144653, +0.927649736E-1), (+1.17315292, +0.924415469), (+1.21512055, +0.177507043), (+1.80903912, +0.632269681), (+1.27531791, +0.784892023), (+1.86077440, +0.944000006), (+1.83418918, +0.105388761E-1), (+1.42369461, +0.542641222), (+1.34999180, +0.549162745), (+1.39348722, +0.652471602), (+1.10766840, +0.659110308), (+1.54100919, +0.536637127), (+1.68321681, +0.749415219), (+1.92577243, +0.354073644E-1), (+1.30277812, +0.927132368E-2), (+1.43360639, +0.654667318), (+1.60831618, +0.223469138E-1), (+1.64925373, +0.353834093), (+1.13538074, +0.711401880), (+1.70391583, +0.528542399E-1), (+1.04630339, +0.427968562), (+1.48651695, +0.177808046), (+1.97501302, +0.421626866), (+1.02374327, +0.365900159), (+1.46769547, +0.361707449), (+1.36110878, +0.125217021), (+1.33922446, +0.595918894E-1), (+1.29015422, +0.755875528), (+1.85220051, +0.815987408), (+1.67985368, +0.953435659), (+1.84697700, +0.397951007E-1), (+1.32360983, +0.347801626), (+1.94580793, +0.399791300), (+1.05363917, +0.502382040), (+1.29851937, +0.449144304), (+1.96404839, +0.667890191), (+1.28728628, +0.276230514), (+1.86254025, +0.992254615), (+1.28069615, +0.337803245), (+1.25867629, +0.938048959E-1), (+1.26319563, +0.613994360), (+1.41641533, +0.718586266), (+1.06903744, +0.605169475)

313

314adat = getFFTR(getFFTF(data)) / size(data)

315adat

316(+1.47991526, +0.796103120), (+1.71308124, +0.997826338), (+1.39159918, +0.503172278), (+1.68589425, +0.838239849), (+1.00105941, +0.161563233), (+1.74654233, +0.414956689), (+1.09964800, +0.423979074), (+1.88035095, +0.412927382E-1), (+1.95292234, +0.238528028), (+1.84869277, +0.766828299), (+1.45821071, +0.960956752), (+1.97215998, +0.274456739), (+1.86907959, +0.110487370E-1), (+1.01300812, +0.389133662), (+1.47019887, +0.560395718), (+1.32358789, +0.199356481), (+1.14364338, +0.522884190), (+1.77937317, +0.461739972E-1), (+1.53366172, +0.290037215), (+1.02584946, +0.952246860E-1), (+1.60750461, +0.764610022E-1), (+1.02117062, +0.685152650), (+1.41941464, +0.506130755), (+1.97465146, +0.632714853E-1), (+1.81188679, +0.533398427E-1), (+1.81377602, +0.552625120), (+1.45590389, +0.358629003E-1), (+1.79539406, +0.761004627), (+1.50058174, +0.511629581), (+1.34189916, +0.221428886), (+1.35941505, +0.440452993), (+1.87451863, +0.826249778), (+1.20144629, +0.927649960E-1), (+1.17315280, +0.924415410), (+1.21512079, +0.177506998), (+1.80903864, +0.632269681), (+1.27531815, +0.784892142), (+1.86077428, +0.944000065), (+1.83418906, +0.105389785E-1), (+1.42369449, +0.542641282), (+1.34999144, +0.549162686), (+1.39348698, +0.652471602), (+1.10766840, +0.659110308), (+1.54100943, +0.536637187), (+1.68321669, +0.749415338), (+1.92577183, +0.354073830E-1), (+1.30277801, +0.927121472E-2), (+1.43360615, +0.654667377), (+1.60831618, +0.223469026E-1), (+1.64925373, +0.353834093), (+1.13538015, +0.711401761), (+1.70391572, +0.528541580E-1), (+1.04630303, +0.427968532), (+1.48651671, +0.177808076), (+1.97501266, +0.421626776), (+1.02374291, +0.365900099), (+1.46769547, +0.361707419), (+1.36110866, +0.125217006), (+1.33922458, +0.595918521E-1), (+1.29015434, +0.755875587), (+1.85220015, +0.815987349), (+1.67985368, +0.953435779), (+1.84697688, +0.397950374E-1), (+1.32360983, +0.347801536), (+1.94580805, +0.399791390), (+1.05363882, +0.502382100), (+1.29851925, +0.449144334), (+1.96404827, +0.667890191), (+1.28728664, +0.276230633), (+1.86254025, +0.992254734), (+1.28069568, +0.337803155), (+1.25867617, +0.938047692E-1), (+1.26319575, +0.613994420), (+1.41641533, +0.718586266), (+1.06903744, +0.605169296)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+82

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.9174002871289901, +0.69613568283257710), (+1.2158074732669646, +0.15796399405984585), (+1.3130450132830060, +0.32007955728787929), (+1.7513454898096874, +0.89498978872831192), (+1.3982875606677090, +0.15367828135963046E-1), (+1.9238973905715619, +0.80164033609652419), (+1.2798362389159279, +0.25906454837333615), (+1.6655260024601244, +0.24294263243556169), (+1.1199681548403069, +0.53635372060289255), (+1.0569224331162066, +0.94666636324546560), (+1.2775636459019637, +0.96006733596690208E-1), (+1.7486325193264327, +0.19214683434340896), (+1.7607852416732654, +0.42871048541459034), (+1.5218301104234919, +0.46749075822252140), (+1.9491563169075041, +0.31691219161555750), (+1.1910708279588025, +0.22142878708329128), (+1.9055091997495088, +0.82681870259539569), (+1.2989235727453976, +0.52792756024660548), (+1.7524970115921648, +0.38615428287205555), (+1.0534424022071134, +0.97468292783642352), (+1.8815858639446406, +0.31582581908288376), (+1.2063855448485370, +0.23290726427280983), (+1.0471215811986219, +0.62942407452476923E-1), (+1.4747707051799375, +0.63703919608107429), (+1.2326142845587893, +0.58874289346339337), (+1.7360124336645195, +0.25367551868248206), (+1.7065687804749685, +0.63981015460946278), (+1.6366384777417275, +0.14654398112201139), (+1.7421495508112361, +0.82916222682939800), (+1.6672952064418070, +0.55855965619998094), (+1.5279223220772273, +0.24033339411679100), (+1.3270203751385838, +0.25166735155454600), (+1.2328156947990425, +0.62483176017910536E-1), (+1.9192045211003417, +0.93865185473229362), (+1.6397402087243256, +0.31764733142422197), (+1.2259738695874667, +0.81383725893240177), (+1.4327076773865342, +0.27546847331752777), (+1.7007099382464443, +0.96341483561072194), (+1.3233023190260593, +0.29096318112687969), (+1.5373269032161043, +0.50740373119011017), (+1.9290244745476675, +0.80830111828563611), (+1.1339905076473562, +0.70909372057455289E-1), (+1.3236942038198105, +0.13346966888474998), (+1.8626398212800499, +0.47062097616687826), (+1.1847017429773077, +0.11606534719353079), (+1.3862681749399597, +0.97642695358335729), (+1.9648813506117997, +0.15988066047303695), (+1.5722837968354257, +0.27733092745926491), (+1.2349503513632092, +0.72417758383142816), (+1.3809170327155214, +0.30486601311941552), (+1.0255712331626587, +0.35219825096542756), (+1.5631010014245481, +0.16597742806378846), (+1.2132467675317771, +0.73951589697879150), (+1.0818739312014825, +0.80025982466827494), (+1.2056248183971492, +0.28456075325958707), (+1.0430146975389407, +0.57661319597777705), (+1.5018116260036052, +0.81139960873410899), (+1.7899192348013635, +0.17868285471948520E-1), (+1.8559557136556843, +0.79885190161710107), (+1.7694989973700412, +0.95614454667074433), (+1.1139349368229228, +0.88165252126033833), (+1.1280538551129642, +0.31242947541812316), (+1.1362280409627807, +0.22293257568162783), (+1.6569372754333247, +0.45981412041443570E-1), (+1.2070227910083942, +0.82054121315220141), (+1.7204069989675386, +0.83368480899290387E-1), (+1.4366878537937664, +0.80841342278772987), (+1.3139528980697599, +0.81889420160240212), (+1.9534914489445501, +0.42282309508356208E-1), (+1.2632486528809439, +0.69024767533149012E-2), (+1.9299771473913672, +0.82947325387375914), (+1.6710657319433624, +0.75043314539574357), (+1.5581857321402042, +0.27809868175755370E-1), (+1.0985484699842316, +0.75460841936857903), (+1.8259472380510473, +0.76541784532538570), (+1.2178419659219637, +0.32294002112263687), (+1.6827163274473027, +0.54304660232734137), (+1.8120344964678905, +0.77781246983487418), (+1.9948822987242558, +0.59859785289196910), (+1.8113122987671835, +0.47914684292851040), (+1.7947640964177352, +0.75831946684173279), (+1.5219348088723446, +0.45403821044998627E-1)

330

331adat = getFFTR(getFFTF(data)) / size(data)

332adat

333(+1.9174002871289924, +0.69613568283257798), (+1.2158074732669646, +0.15796399405984571), (+1.3130450132830045, +0.32007955728787929), (+1.7513454898096872, +0.89498978872831192), (+1.3982875606677081, +0.15367828135963215E-1), (+1.9238973905715619, +0.80164033609652441), (+1.2798362389159270, +0.25906454837333626), (+1.6655260024601237, +0.24294263243556166), (+1.1199681548403067, +0.53635372060289255), (+1.0569224331162064, +0.94666636324546571), (+1.2775636459019639, +0.96006733596690291E-1), (+1.7486325193264329, +0.19214683434340885), (+1.7607852416732657, +0.42871048541459039), (+1.5218301104234928, +0.46749075822252140), (+1.9491563169075046, +0.31691219161555734), (+1.1910708279588034, +0.22142878708329097), (+1.9055091997495095, +0.82681870259539547), (+1.2989235727453980, +0.52792756024660603), (+1.7524970115921648, +0.38615428287205550), (+1.0534424022071134, +0.97468292783642374), (+1.8815858639446410, +0.31582581908288421), (+1.2063855448485377, +0.23290726427280994), (+1.0471215811986228, +0.62942407452477006E-1), (+1.4747707051799375, +0.63703919608107418), (+1.2326142845587904, +0.58874289346339370), (+1.7360124336645195, +0.25367551868248195), (+1.7065687804749692, +0.63981015460946267), (+1.6366384777417271, +0.14654398112201128), (+1.7421495508112368, +0.82916222682939789), (+1.6672952064418070, +0.55855965619998105), (+1.5279223220772278, +0.24033339411679078), (+1.3270203751385838, +0.25166735155454600), (+1.2328156947990423, +0.62483176017910369E-1), (+1.9192045211003403, +0.93865185473229373), (+1.6397402087243254, +0.31764733142422202), (+1.2259738695874660, +0.81383725893240189), (+1.4327076773865346, +0.27546847331752772), (+1.7007099382464439, +0.96341483561072228), (+1.3233023190260595, +0.29096318112687969), (+1.5373269032161032, +0.50740373119011006), (+1.9290244745476668, +0.80830111828563578), (+1.1339905076473578, +0.70909372057455788E-1), (+1.3236942038198103, +0.13346966888474987), (+1.8626398212800486, +0.47062097616687798), (+1.1847017429773079, +0.11606534719353087), (+1.3862681749399588, +0.97642695358335718), (+1.9648813506117997, +0.15988066047303706), (+1.5722837968354251, +0.27733092745926496), (+1.2349503513632090, +0.72417758383142805), (+1.3809170327155211, +0.30486601311941552), (+1.0255712331626585, +0.35219825096542717), (+1.5631010014245474, +0.16597742806378873), (+1.2132467675317780, +0.73951589697879128), (+1.0818739312014827, +0.80025982466827505), (+1.2056248183971496, +0.28456075325958680), (+1.0430146975389403, +0.57661319597777705), (+1.5018116260036058, +0.81139960873410866), (+1.7899192348013631, +0.17868285471948395E-1), (+1.8559557136556852, +0.79885190161710107), (+1.7694989973700408, +0.95614454667074467), (+1.1139349368229239, +0.88165252126033833), (+1.1280538551129644, +0.31242947541812321), (+1.1362280409627816, +0.22293257568162828), (+1.6569372754333247, +0.45981412041443667E-1), (+1.2070227910083942, +0.82054121315220141), (+1.7204069989675392, +0.83368480899290581E-1), (+1.4366878537937671, +0.80841342278773021), (+1.3139528980697606, +0.81889420160240245), (+1.9534914489445505, +0.42282309508355945E-1), (+1.2632486528809448, +0.69024767533148223E-2), (+1.9299771473913674, +0.82947325387375948), (+1.6710657319433631, +0.75043314539574346), (+1.5581857321402042, +0.27809868175755401E-1), (+1.0985484699842314, +0.75460841936857903), (+1.8259472380510469, +0.76541784532538559), (+1.2178419659219633, +0.32294002112263670), (+1.6827163274473020, +0.54304660232734125), (+1.8120344964678905, +0.77781246983487451), (+1.9948822987242549, +0.59859785289196921), (+1.8113122987671835, +0.47914684292851079), (+1.7947640964177340, +0.75831946684173290), (+1.5219348088723439, +0.45403821044998710E-1)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+84

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.81772732577915143275872228609966481, +0.653089599074045270373979174445631595), (+1.81721183330904326278434747731019125, +0.377945633864204899162673720746098936), (+1.72372003380361943021542142649227024, +0.398766599461299519533332616771953420), (+1.17010022021191108886703209488257830, +0.637980774868953840166354796883344888), (+1.66135772949373058303255589574475535, +0.444415723241527214840985357657137949), (+1.21739475575033130798128726061274356, +0.598171372905723200338874278135085343), (+1.61416417096543598058271214846720533, +0.923290157875550646796704625026148715E-1), (+1.11222534682166081654089205153704105, +0.611422167633597941152490692542083833), (+1.64256114607520256761454998416033241, +0.217656020032448144399272329978837137), (+1.16263842482304977681686425285245731, +0.192303239726753789021456975794984525), (+1.34723015944825519811621144985898234, +0.859227683210381307942729382011232011), (+1.03033430704847046067033064171695996, +0.945865499930852675498859085780572615), (+1.55513799134940339784598972596084550, +0.730054766986816480017816703585667275), (+1.33610395744202367096755391377589697, +0.665047743871147878677473411631566824), (+1.18487499186877729602152386909667119, +0.634901070399653063361749921841971922), (+1.13275255726019428320008394317070905, +0.780486117563549841458175204565671350), (+1.33250203903745518700315720408627606, +0.422748266855645621104037220774657980), (+1.21786315574954571343074331089924534, +0.877725584028875806676282758242451224), (+1.71221199356668007079314154206520844, +0.102558664476971759218579317808458230E-1), (+1.70545591500001509998489897153013388, +0.851524123137645555950483182530022691), (+1.90239857907893458460950284105035486, +0.754898475047613908981158894421659621), (+1.37173795411799103569710305904717098, +0.182633016182332279982275512236298266), (+1.48412110041594778441720107931793702, +0.146377428333360978204617693937845040), (+1.10785276359188769919366666288623024, +0.149650745142588180908811227341655581), (+1.10355867441650092143518002371147045, +0.295683723665100162968423021283083871), (+1.89343718995397271131111167367619473, +0.784226661446424847129234616808272729), (+1.60988051274632848981635224305645410, +0.102940190143377516816275455613992709), (+1.78760641919981680948075274245747490, +0.746249997598812181270068015041618635E-1), (+1.27920375959391299130424047959288164, +0.222691970173766151940481787617173540), (+1.46228294661045660494391220603701421, +0.311058293063097184921270180037979792), (+1.53660729692787955649097133516145690, +0.231646566034068093244610542237153214), (+1.03173715045663129508970940958999496, +0.596621391584505638312004449970533064), (+1.65969481180127049243254267149625465, +0.918044700449194553210389742951430290), (+1.00924019700101172851536526984142669, +0.864571151349658917199229830675877239), (+1.76221871145648801999348867991832362, +0.100247011833593572448682717511726379), (+1.41274422900469285411953842815245619, +0.138875935632602448051782135153310741), (+1.62783534360863690330195018316774466, +0.788335404305594784258459385769682649), (+1.87914919566212593412169734077393743, +0.340036328677721334166984830044131294), (+1.03670972207052763992549269681090445, +0.423249817721907800008663327343126149), (+1.60052969069879168840612331874555878, +0.942523657359581451033391423413242494), (+1.00217360969885310865041369700593074, +0.838327865040248525049722707017718214), (+1.35667232389408141655478760640462069, +0.198660769002019266218243246528378632), (+1.61488245593426819953638868444964397, +0.261678820442139498265062133623983674), (+1.27814061024679194395123596447834685, +0.615211229316163499072974338414071757), (+1.79939112769525306703855005917672447, +0.178921063921535079974366574455956349), (+1.91062506417906188178426297575281231, +0.843243609485833511106663361004445151), (+1.78442478839728018888827972947730153, +0.767736810489814655741577193957353569), (+1.15315512890992459510864235571451774, +0.518624991950499447873879868911527360), (+1.24505990842880746591282416552190518, +0.225765824506520498162139013621114653), (+1.60091954512571224846340700770012873, +0.810341600544031151970278630631943248), (+1.06079785724804662037335591005357411, +0.806252237984468250654076387414952040), (+1.23807162091854742550607279742565805, +0.155743198360591125535862804979008945), (+1.53905211443949015300299878439260848, +0.837735034892793360950549874348425625), (+1.35626738143749875542219357192682264, +0.190846194752189539200635019743352905), (+1.93330916307484856562798062391816999, +0.103070702277118655971600509626527603), (+1.64918155184467069141633450591914377, +0.684964900419288899942462483807987351), (+1.89315000372741993933719431155996843, +0.863479210791852399747823284375881340), (+1.27324562680114110126790201170200168, +0.182467569946745738545740699248775234), (+1.49112665659542832303677962612345017, +0.250125876262271999404359535256257056), (+1.51867182815653516731255439154511282, +0.172672946652591933049296749303099328), (+1.53587784205011098946184815649742699, +0.550884774332157230450132276604994723E-1), (+1.09216634803399341922696132944480066, +0.950063810328406570608889343930809971E-1), (+1.95536981301614703939511935714090295, +0.779483826600640431298120639227835364), (+1.11620829058481836130767529016133300, +0.635962790555161121912120778813946698), (+1.84565523376539940155098068991417207, +0.830865696799369571612670712594404279E-1), (+1.19501544936251836139876407843136359, +0.492932836984427764837592318097793801), (+1.79104197570842257401110666554065558, +0.755534831706997595958070934939557208), (+1.85391122346828421913047445362948569, +0.520334716209753779692553962472223219), (+1.88578908230758786230204102668809175, +0.500693409532249946358232287307301540), (+1.04699921191863163035785788855381862, +0.810579434179132933546701254561347290), (+1.98661290151710491018602856481943796, +0.639919975178688815422676023815514961), (+1.02775301507512571511202251020747706, +0.590824742037769174099388574446548292), (+1.50399328558736957108247004889930892, +0.698270470330938240803230054823622522E-3), (+1.05316888614447237374090554591552365, +0.959636064803312155671098357714070237), (+1.90831640022580200776316060452071126, +0.304529227940963558470382403305641179), (+1.25216975675986008810606584391469678, +0.985473931448114063273114562066564182E-1), (+1.36480007248878403988735010112205805, +0.330077320791382434532896025242580222), (+1.75901605808612706195889601524429481, +0.614761673586110573636915049893708308), (+1.14815360826866690002361512358124747, +0.649662017547410454390647674125320663), (+1.34746924032197075196584466215962880, +0.920007189016956849544297990679918978), (+1.18435532391853846939444226042862810, +0.402263398383279707106365705360336256), (+1.85838115152937389507321982231659107, +0.925655183952059725014765630113014569), (+1.49119500659720482676836208445996714, +0.445880542292125940492408418843007045), (+1.91332228056330935429704412237275611, +0.514889099166509101277206212391576430)

347

348adat = getFFTR(getFFTF(data)) / size(data)

349adat

350(+1.81772732577915143275872228609966500, +0.653089599074045270373979174445631595), (+1.81721183330904326278434747731019087, +0.377945633864204899162673720746098936), (+1.72372003380361943021542142649227024, +0.398766599461299519533332616771953323), (+1.17010022021191108886703209488257830, +0.637980774868953840166354796883344792), (+1.66135772949373058303255589574475497, +0.444415723241527214840985357657137997), (+1.21739475575033130798128726061274395, +0.598171372905723200338874278135085536), (+1.61416417096543598058271214846720514, +0.923290157875550646796704625026149196E-1), (+1.11222534682166081654089205153704124, +0.611422167633597941152490692542083929), (+1.64256114607520256761454998416033164, +0.217656020032448144399272329978837137), (+1.16263842482304977681686425285245712, +0.192303239726753789021456975794984525), (+1.34723015944825519811621144985898253, +0.859227683210381307942729382011231914), (+1.03033430704847046067033064171695976, +0.945865499930852675498859085780572519), (+1.55513799134940339784598972596084569, +0.730054766986816480017816703585667275), (+1.33610395744202367096755391377589678, +0.665047743871147878677473411631566727), (+1.18487499186877729602152386909667119, +0.634901070399653063361749921841971826), (+1.13275255726019428320008394317070905, +0.780486117563549841458175204565671350), (+1.33250203903745518700315720408627645, +0.422748266855645621104037220774658028), (+1.21786315574954571343074331089924534, +0.877725584028875806676282758242451417), (+1.71221199356668007079314154206520844, +0.102558664476971759218579317808458140E-1), (+1.70545591500001509998489897153013426, +0.851524123137645555950483182530022788), (+1.90239857907893458460950284105035409, +0.754898475047613908981158894421659717), (+1.37173795411799103569710305904717117, +0.182633016182332279982275512236298314), (+1.48412110041594778441720107931793683, +0.146377428333360978204617693937845112), (+1.10785276359188769919366666288623024, +0.149650745142588180908811227341655653), (+1.10355867441650092143518002371147045, +0.295683723665100162968423021283083774), (+1.89343718995397271131111167367619512, +0.784226661446424847129234616808272729), (+1.60988051274632848981635224305645410, +0.102940190143377516816275455613992782), (+1.78760641919981680948075274245747510, +0.746249997598812181270068015041617432E-1), (+1.27920375959391299130424047959288183, +0.222691970173766151940481787617173589), (+1.46228294661045660494391220603701402, +0.311058293063097184921270180037979840), (+1.53660729692787955649097133516145729, +0.231646566034068093244610542237153310), (+1.03173715045663129508970940958999496, +0.596621391584505638312004449970533256), (+1.65969481180127049243254267149625427, +0.918044700449194553210389742951430097), (+1.00924019700101172851536526984142708, +0.864571151349658917199229830675877142), (+1.76221871145648801999348867991832362, +0.100247011833593572448682717511726258), (+1.41274422900469285411953842815245619, +0.138875935632602448051782135153310573), (+1.62783534360863690330195018316774408, +0.788335404305594784258459385769682457), (+1.87914919566212593412169734077393724, +0.340036328677721334166984830044131390), (+1.03670972207052763992549269681090426, +0.423249817721907800008663327343126149), (+1.60052969069879168840612331874555878, +0.942523657359581451033391423413242494), (+1.00217360969885310865041369700593113, +0.838327865040248525049722707017718407), (+1.35667232389408141655478760640462069, +0.198660769002019266218243246528378752), (+1.61488245593426819953638868444964416, +0.261678820442139498265062133623983577), (+1.27814061024679194395123596447834685, +0.615211229316163499072974338414071854), (+1.79939112769525306703855005917672447, +0.178921063921535079974366574455956373), (+1.91062506417906188178426297575281212, +0.843243609485833511106663361004445439), (+1.78442478839728018888827972947730191, +0.767736810489814655741577193957353472), (+1.15315512890992459510864235571451793, +0.518624991950499447873879868911527457), (+1.24505990842880746591282416552190479, +0.225765824506520498162139013621114581), (+1.60091954512571224846340700770012892, +0.810341600544031151970278630631943151), (+1.06079785724804662037335591005357391, +0.806252237984468250654076387414951944), (+1.23807162091854742550607279742565824, +0.155743198360591125535862804979008777), (+1.53905211443949015300299878439260887, +0.837735034892793360950549874348425432), (+1.35626738143749875542219357192682284, +0.190846194752189539200635019743353050), (+1.93330916307484856562798062391817037, +0.103070702277118655971600509626527808), (+1.64918155184467069141633450591914358, +0.684964900419288899942462483807987158), (+1.89315000372741993933719431155996804, +0.863479210791852399747823284375881340), (+1.27324562680114110126790201170200148, +0.182467569946745738545740699248775331), (+1.49112665659542832303677962612345036, +0.250125876262271999404359535256257056), (+1.51867182815653516731255439154511263, +0.172672946652591933049296749303099352), (+1.53587784205011098946184815649742719, +0.550884774332157230450132276604993760E-1), (+1.09216634803399341922696132944480124, +0.950063810328406570608889343930810814E-1), (+1.95536981301614703939511935714090257, +0.779483826600640431298120639227835268), (+1.11620829058481836130767529016133320, +0.635962790555161121912120778813946698), (+1.84565523376539940155098068991417187, +0.830865696799369571612670712594404519E-1), (+1.19501544936251836139876407843136359, +0.492932836984427764837592318097794042), (+1.79104197570842257401110666554065597, +0.755534831706997595958070934939557208), (+1.85391122346828421913047445362948588, +0.520334716209753779692553962472223315), (+1.88578908230758786230204102668809175, +0.500693409532249946358232287307301348), (+1.04699921191863163035785788855381843, +0.810579434179132933546701254561347386), (+1.98661290151710491018602856481943815, +0.639919975178688815422676023815514864), (+1.02775301507512571511202251020747687, +0.590824742037769174099388574446548484), (+1.50399328558736957108247004889930912, +0.698270470330938240803230054823599576E-3), (+1.05316888614447237374090554591552346, +0.959636064803312155671098357714070044), (+1.90831640022580200776316060452071126, +0.304529227940963558470382403305641179), (+1.25216975675986008810606584391469717, +0.985473931448114063273114562066563580E-1), (+1.36480007248878403988735010112205805, +0.330077320791382434532896025242580126), (+1.75901605808612706195889601524429462, +0.614761673586110573636915049893708308), (+1.14815360826866690002361512358124747, +0.649662017547410454390647674125320567), (+1.34746924032197075196584466215962918, +0.920007189016956849544297990679918978), (+1.18435532391853846939444226042862772, +0.402263398383279707106365705360336064), (+1.85838115152937389507321982231659127, +0.925655183952059725014765630113014569), (+1.49119500659720482676836208445996752, +0.445880542292125940492408418843006948), (+1.91332228056330935429704412237275611, +0.514889099166509101277206212391576333)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+22

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.69639277, +1.48064089, +1.15042782, +1.09079719, +1.21107507, +1.95219469, +1.09991646, +1.03466988, +1.12937069, +1.90694082, +1.64033175, +1.37977648, +1.87542319, +1.17542791, +1.50213039, +1.42839432, +1.32772338, +1.92803955, +1.92938924, +1.97914827, +1.67248845, +1.04416847

364

365adat = getFFTR(getFFTF(data)) / size(data)

366adat

367+1.69639277, +1.48064053, +1.15042794, +1.09079695, +1.21107495, +1.95219457, +1.09991670, +1.03466988, +1.12937045, +1.90694058, +1.64033234, +1.37977648, +1.87542379, +1.17542791, +1.50213015, +1.42839420, +1.32772362, +1.92803943, +1.92938912, +1.97914815, +1.67248845, +1.04416835

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+89

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.6794220467217376, +1.7250739168893205, +1.0038372218453766, +1.4431393473322012, +1.9713061373175056, +1.4829913246041988, +1.4344512720078071, +1.9992321183372199, +1.4485374522029084, +1.1707750006159423, +1.7070897652320300, +1.5929594813280055, +1.5833628144458654, +1.1278734360701073, +1.3309113614359842, +1.3215483295617494, +1.9049898247184824, +1.4016290271810754, +1.0525325674016561, +1.0007320119572518, +1.8957274533831738, +1.3476830180590125, +1.4918702562904886, +1.5913798861875978, +1.6437185236870531, +1.0908931110634059, +1.0061293521947157, +1.3584780072171951, +1.6870930147594905, +1.4888042828369583, +1.9044156765702156, +1.6862462478105391, +1.5740043015255025, +1.3885727744150818, +1.4982077620862118, +1.3175682590294520, +1.2948783054184818, +1.6333866074132968, +1.8471837942609146, +1.0923614867759199, +1.0951192734516679, +1.5867340414993478, +1.1526068875716968, +1.0471975945917387, +1.0090718133598406, +1.0366563027035642, +1.4992384545632587, +1.8021828494463659, +1.0812575775398545, +1.3490272841671151, +1.3326209662864661, +1.7578145168073771, +1.9477283641055481, +1.4166379573301184, +1.7717988751790854, +1.5447285755701980, +1.7865548422348778, +1.8642962332259130, +1.5592286495356757, +1.7135656192560036, +1.6421468318670320, +1.7201735316480391, +1.9301933701679137, +1.7245698314729174, +1.8751542242657022, +1.1907524418791717, +1.0940320887411517, +1.4192388078825611, +1.5913951888295808, +1.0740045248782837, +1.4006323425719194, +1.6373048504589494, +1.2423337169269810, +1.3268489358821416, +1.1807520478276912, +1.7550348336078514, +1.0454177435963987, +1.1887685227820359, +1.3865101375500413, +1.6250579408395862, +1.0470830559474682, +1.0364853090404105, +1.3665960619022917, +1.9563069717333033, +1.6617333114452384, +1.9923852477300479, +1.3002688061495549, +1.8133526029609277, +1.4171330809753668

381

382adat = getFFTR(getFFTF(data)) / size(data)

383adat

384+1.6794220467217402, +1.7250739168893230, +1.0038372218453808, +1.4431393473322036, +1.9713061373175040, +1.4829913246042017, +1.4344512720078115, +1.9992321183372146, +1.4485374522029104, +1.1707750006159519, +1.7070897652320272, +1.5929594813280072, +1.5833628144458609, +1.1278734360701153, +1.3309113614359833, +1.3215483295617578, +1.9049898247184640, +1.4016290271810772, +1.0525325674016619, +1.0007320119572676, +1.8957274533831499, +1.3476830180590267, +1.4918702562904860, +1.5913798861875974, +1.6437185236870389, +1.0908931110634190, +1.0061293521947281, +1.3584780072171971, +1.6870930147594756, +1.4888042828369705, +1.9044156765701938, +1.6862462478105404, +1.5740043015254979, +1.3885727744150906, +1.4982077620862024, +1.3175682590294580, +1.2948783054184914, +1.6333866074132930, +1.8471837942608798, +1.0923614867759408, +1.0951192734516861, +1.5867340414993218, +1.1526068875717081, +1.0471975945917520, +1.0090718133598435, +1.0366563027035722, +1.4992384545632540, +1.8021828494463346, +1.0812575775398900, +1.3490272841671087, +1.3326209662864776, +1.7578145168073636, +1.9477283641055250, +1.4166379573301406, +1.7717988751790688, +1.5447285755702067, +1.7865548422348716, +1.8642962332259003, +1.5592286495356864, +1.7135656192559963, +1.6421468318670351, +1.7201735316480387, +1.9301933701679006, +1.7245698314729201, +1.8751542242656847, +1.1907524418791842, +1.0940320887411641, +1.4192388078825591, +1.5913951888295721, +1.0740045248782963, +1.4006323425719214, +1.6373048504589389, +1.2423337169269897, +1.3268489358821376, +1.1807520478277016, +1.7550348336078352, +1.0454177435964096, +1.1887685227820375, +1.3865101375500442, +1.6250579408395822, +1.0470830559474775, +1.0364853090404154, +1.3665960619022945, +1.9563069717332993, +1.6617333114452417, +1.9923852477300468, +1.3002688061495606, +1.8133526029609268, +1.4171330809753702

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+7

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.44348547162898792671666911448123175, +1.36803823639432124710062507936545824, +1.56041483982369856874689124051260612, +1.67731515843239310313167908107450324, +1.08982520040824914167719896113619321, +1.17393949854964031195681592521012243, +1.72551472539141716338417491835096854

398

399adat = getFFTR(getFFTF(data)) / size(data)

400adat

401+1.44348547162898792671666911448123175, +1.36803823639432124710062507936545843, +1.56041483982369856874689124051260631, +1.67731515843239310313167908107450324, +1.08982520040824914167719896113619301, +1.17393949854964031195681592521012263, +1.72551472539141716338417491835096873

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+39

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.19076800, +0.421071827), (+1.75594378, +0.229978144), (+1.52589512, +0.234033048), (+1.79441142, +0.805901051), (+1.03379631, +0.427532554), (+1.05792356, +0.929482162), (+1.64172578, +0.779418349E-1), (+1.07331502, +0.801207244), (+1.64843464, +0.683762074), (+1.74489498, +0.382729232), (+1.12629128, +0.199912608), (+1.38831091, +0.578880072), (+1.39290500, +0.420849979), (+1.65979171, +0.600755751), (+1.11079764, +0.536425829), (+1.53685212, +0.441738904), (+1.39798903, +0.549723148), (+1.16928566, +0.182901144), (+1.08520532, +0.176851571), (+1.16075301, +0.489407241), (+1.81486416, +0.596463799), (+1.05717301, +0.740799904E-1), (+1.89410591, +0.685915589), (+1.39742327, +0.676392674), (+1.50845432, +0.769207299), (+1.67338872, +0.336322129), (+1.06606817, +0.633270442), (+1.58734012, +0.247566223), (+1.14027190, +0.559639871), (+1.78467965, +0.811478496E-1), (+1.18836462, +0.141295612), (+1.19687021, +0.477376759), (+1.11474204, +0.609329045), (+1.13990390, +0.722478390), (+1.54452205, +0.877801180E-1), (+1.37246776, +0.549089491), (+1.78355575, +0.401512265), (+1.49374127, +0.217127800E-2), (+1.04013729, +0.103319943)

415

416adat = getFFTR(getFFTF(data)) / size(data)

417adat

418(+1.19076788, +0.421071857), (+1.75594366, +0.229978174), (+1.52589536, +0.234033197), (+1.79441166, +0.805901051), (+1.03379643, +0.427532643), (+1.05792344, +0.929482102), (+1.64172602, +0.779419467E-1), (+1.07331514, +0.801207364), (+1.64843452, +0.683762014), (+1.74489510, +0.382729262), (+1.12629128, +0.199912637), (+1.38831127, +0.578880131), (+1.39290488, +0.420850009), (+1.65979159, +0.600755692), (+1.11079764, +0.536425769), (+1.53685224, +0.441739023), (+1.39798939, +0.549723268), (+1.16928589, +0.182901263), (+1.08520496, +0.176851511), (+1.16075325, +0.489407510), (+1.81486452, +0.596463978), (+1.05717278, +0.740799233E-1), (+1.89410615, +0.685915768), (+1.39742339, +0.676392734), (+1.50845444, +0.769207299), (+1.67338872, +0.336322159), (+1.06606841, +0.633270442), (+1.58734000, +0.247566149), (+1.14027202, +0.559640110), (+1.78467989, +0.811479986E-1), (+1.18836486, +0.141295657), (+1.19687009, +0.477376699), (+1.11474228, +0.609329224), (+1.13990414, +0.722478449), (+1.54452205, +0.877801478E-1), (+1.37246788, +0.549089551), (+1.78355598, +0.401512235), (+1.49374151, +0.217139418E-2), (+1.04013741, +0.103319950)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+62

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.8883621377895921, +0.69474996629551977), (+1.6215783188195441, +0.93713714427662498), (+1.7217319392071171, +0.38859041358623736), (+1.3516146754031215, +0.22050810000658450), (+1.8183764243288136, +0.18916550720659298), (+1.9603260554421476, +0.41363451579080002), (+1.5174652551370489, +0.22846882973142069), (+1.0350533309810186, +0.37698732051050876), (+1.9918572100670879, +0.35945019176359871), (+1.9552822852160059, +0.37959377660441218), (+1.8380604579214705, +0.74567785182001600), (+1.6589927755605913, +0.77212035863616113), (+1.8997292496766987, +0.59007264246593460), (+1.1296583238495979, +0.75042802137722209), (+1.8587505596924239, +0.14217929735730506), (+1.5036919057658322, +0.94399021991912968), (+1.2626598640352122, +0.20033932188123060), (+1.2343766058893064, +0.68168305810834329), (+1.7356894275016193, +0.66737050071940862E-1), (+1.9759066831414875, +0.21969442225899138E-1), (+1.1040900559022508, +0.39132902605964082), (+1.7691433472124500, +0.83758677851082652), (+1.2608977496761273, +0.94019201448064338), (+1.2877380749048981, +0.12642074689255245), (+1.3734293235972281, +0.22586051311672928), (+1.9836428678238009, +0.47312959782108766), (+1.6420419420137078, +0.29091674441809412), (+1.3257535822326938, +0.19087653890344869), (+1.3018405086267635, +0.82268117692344267), (+1.6447757137406198, +0.24687949917813812), (+1.9529173501927146, +0.95615917190589983), (+1.4883204785172042, +0.56957512145574241), (+1.7245473368729356, +0.91215507812867180), (+1.0175233272432442, +0.63946694641604862), (+1.3429162435005813, +0.86315180604681452), (+1.2043318725891043, +0.58547358516843584), (+1.2622188025554437, +0.79844976183162553E-1), (+1.1188260570834463, +0.41236559340944046), (+1.5093200405994343, +0.63177791550373941), (+1.5415935935272937, +0.69713872343183036), (+1.7534058578037692, +0.57901894623148764E-1), (+1.5284495081613685, +0.32386311436817217), (+1.9360758877499578, +0.25703133108745302), (+1.4028913239686438, +0.45408497801910908), (+1.4266262275031829, +0.42836314745443693E-1), (+1.1098183498948724, +0.80909457489270287), (+1.7555755328754423, +0.38485564852015819E-1), (+1.8737309495937313, +0.98441494437503685), (+1.3460575875613621, +0.78857988349481323E-1), (+1.4703035649611744, +0.25548722509163702), (+1.2837577837720229, +0.53974596920824658), (+1.5007672514976775, +0.27952277241631818), (+1.4612968666108703, +0.97043185783915076), (+1.5691917901794512, +0.51057565688638273), (+1.9321279901651414, +0.15925347260119649), (+1.6809312739809252, +0.58798323516783779), (+1.5384267531488851, +0.13401236435846009), (+1.3874734865266003, +0.55731323795331289), (+1.8251251643469222, +0.91310392399294604), (+1.5441784605046558, +0.22414295012494501), (+1.5934363541519567, +0.14908287942993170), (+1.2635301353842470, +0.66272853895053696)

432

433adat = getFFTR(getFFTF(data)) / size(data)

434adat

435(+1.8883621377895921, +0.69474996629551999), (+1.6215783188195438, +0.93713714427662542), (+1.7217319392071171, +0.38859041358623764), (+1.3516146754031213, +0.22050810000658436), (+1.8183764243288130, +0.18916550720659289), (+1.9603260554421478, +0.41363451579079991), (+1.5174652551370493, +0.22846882973142063), (+1.0350533309810186, +0.37698732051050876), (+1.9918572100670882, +0.35945019176359871), (+1.9552822852160059, +0.37959377660441218), (+1.8380604579214710, +0.74567785182001600), (+1.6589927755605913, +0.77212035863616091), (+1.8997292496766991, +0.59007264246593438), (+1.1296583238495974, +0.75042802137722175), (+1.8587505596924241, +0.14217929735730503), (+1.5036919057658324, +0.94399021991912990), (+1.2626598640352116, +0.20033932188123052), (+1.2343766058893055, +0.68168305810834318), (+1.7356894275016190, +0.66737050071940890E-1), (+1.9759066831414880, +0.21969442225899204E-1), (+1.1040900559022513, +0.39132902605964076), (+1.7691433472124500, +0.83758677851082641), (+1.2608977496761276, +0.94019201448064349), (+1.2877380749048981, +0.12642074689255275), (+1.3734293235972281, +0.22586051311672947), (+1.9836428678238007, +0.47312959782108760), (+1.6420419420137078, +0.29091674441809412), (+1.3257535822326931, +0.19087653890344874), (+1.3018405086267637, +0.82268117692344278), (+1.6447757137406200, +0.24687949917813820), (+1.9529173501927153, +0.95615917190590016), (+1.4883204785172039, +0.56957512145574252), (+1.7245473368729367, +0.91215507812867225), (+1.0175233272432442, +0.63946694641604895), (+1.3429162435005815, +0.86315180604681452), (+1.2043318725891039, +0.58547358516843584), (+1.2622188025554439, +0.79844976183162511E-1), (+1.1188260570834463, +0.41236559340944057), (+1.5093200405994343, +0.63177791550373952), (+1.5415935935272935, +0.69713872343183048), (+1.7534058578037697, +0.57901894623148785E-1), (+1.5284495081613680, +0.32386311436817239), (+1.9360758877499580, +0.25703133108745307), (+1.4028913239686442, +0.45408497801910908), (+1.4266262275031829, +0.42836314745443846E-1), (+1.1098183498948726, +0.80909457489270298), (+1.7555755328754419, +0.38485564852015743E-1), (+1.8737309495937304, +0.98441494437503685), (+1.3460575875613618, +0.78857988349481281E-1), (+1.4703035649611749, +0.25548722509163740), (+1.2837577837720235, +0.53974596920824669), (+1.5007672514976771, +0.27952277241631801), (+1.4612968666108708, +0.97043185783915076), (+1.5691917901794514, +0.51057565688638251), (+1.9321279901651420, +0.15925347260119646), (+1.6809312739809248, +0.58798323516783779), (+1.5384267531488856, +0.13401236435846015), (+1.3874734865266005, +0.55731323795331289), (+1.8251251643469215, +0.91310392399294604), (+1.5441784605046558, +0.22414295012494517), (+1.5934363541519569, +0.14908287942993198), (+1.2635301353842474, +0.66272853895053729)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+26

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.13425577109194354779851470149480853, +0.798409079328888953927015198991739574), (+1.72552777899870959139847130139415902, +0.294602394507095924526878868760002607), (+1.50522708176655690402386991982387754, +0.920859246174464697858511181631765830), (+1.38780797067949577236047234360998404, +0.669569714997568715487481931185420218), (+1.55794699346075612002563046247624672, +0.220550647996719307408546383511872618), (+1.25911884171388462052655469805249100, +0.801618434994144922328199058222597205), (+1.34324730038235804857047213100978692, +0.401844967644578748721570339787088543), (+1.66450613215342393422790820729513467, +0.762287410758145013496638008429860302), (+1.06514865339478598411167197773775620, +0.825847633505393160557422016567411772), (+1.04759521181076723024723153035982854, +0.869183271372344221340544472458771242), (+1.12873291072241663840862284838668332, +0.555961117273431745486822552178585133), (+1.44038936118635794141748996972564641, +0.444382810260452437505936125012963678E-1), (+1.99238920686924175591833973351492419, +0.396154561918182718120706240645170927), (+1.07867271559366977686655437929037416, +0.670303525962844322982550965113597835), (+1.54517422654426507982085784304772628, +0.943238448093211715763675813212698861), (+1.33507735591804916754898655114072298, +0.865429538571584872486497532950139405), (+1.73844231946713132685643333735654997, +0.664717804769317384825220475018297354), (+1.77726911674336599775799847757197330, +0.685300680523790332576540006859538360), (+1.54530414228123386218303982781366088, +0.792468820409658971177800910160403486), (+1.68895869122915459974446405082003592, +0.352359481589746347688567401655582551), (+1.57770170738690418009867603132210119, +0.260358204068131133411240831626634104E-1), (+1.01500331129423471539838408146934118, +0.600134416408298982280785837402602072), (+1.73692413940777129931457575880100391, +0.356789379031407011864852713375856746), (+1.00682279609123578559706703070681447, +0.734770159195569806330449873564731911), (+1.32894074873242965956783880843064566, +0.628234944362313586114701898638781883), (+1.92840358335912177274896580736687765, +0.869982255498192711540027829483783008)

449

450adat = getFFTR(getFFTF(data)) / size(data)

451adat

452(+1.13425577109194354779851470149480757, +0.798409079328888953927015198991738996), (+1.72552777899870959139847130139415921, +0.294602394507095924526878868760002703), (+1.50522708176655690402386991982387735, +0.920859246174464697858511181631765830), (+1.38780797067949577236047234360998384, +0.669569714997568715487481931185420314), (+1.55794699346075612002563046247624653, +0.220550647996719307408546383511872714), (+1.25911884171388462052655469805249139, +0.801618434994144922328199058222597494), (+1.34324730038235804857047213100978673, +0.401844967644578748721570339787087965), (+1.66450613215342393422790820729513429, +0.762287410758145013496638008429860014), (+1.06514865339478598411167197773775620, +0.825847633505393160557422016567411676), (+1.04759521181076723024723153035982835, +0.869183271372344221340544472458771050), (+1.12873291072241663840862284838668313, +0.555961117273431745486822552178585229), (+1.44038936118635794141748996972564602, +0.444382810260452437505936125012964220E-1), (+1.99238920686924175591833973351492515, +0.396154561918182718120706240645170831), (+1.07867271559366977686655437929037320, +0.670303525962844322982550965113597450), (+1.54517422654426507982085784304772685, +0.943238448093211715763675813212699150), (+1.33507735591804916754898655114072298, +0.865429538571584872486497532950139598), (+1.73844231946713132685643333735654997, +0.664717804769317384825220475018297258), (+1.77726911674336599775799847757197292, +0.685300680523790332576540006859538360), (+1.54530414228123386218303982781366069, +0.792468820409658971177800910160403389), (+1.68895869122915459974446405082003515, +0.352359481589746347688567401655582214), (+1.57770170738690418009867603132210100, +0.260358204068131133411240831626629891E-1), (+1.01500331129423471539838408146934137, +0.600134416408298982280785837402602072), (+1.73692413940777129931457575880100410, +0.356789379031407011864852713375856891), (+1.00682279609123578559706703070681485, +0.734770159195569806330449873564732104), (+1.32894074873242965956783880843064528, +0.628234944362313586114701898638781786), (+1.92840358335912177274896580736687803, +0.869982255498192711540027829483783104)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+16

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.32877898, +1.33830595, +1.27151275, +1.57564735, +1.28194094, +1.03278589, +1.37945676, +1.94584048, +1.07776260, +1.47758174, +1.97362232, +1.56726122, +1.73941588, +1.30856085, +1.68575120, +1.90340662

466

467adat = getFFTR(getFFTF(data)) / size(data)

468adat

469+1.32877898, +1.33830583, +1.27151263, +1.57564723, +1.28194094, +1.03278589, +1.37945676, +1.94584036, +1.07776260, +1.47758162, +1.97362220, +1.56726110, +1.73941588, +1.30856085, +1.68575120, +1.90340638

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+24

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.9724298528705753, +1.1468700991012970, +1.8360761869316962, +1.1344064478611389, +1.0834784027278250, +1.9426128318439440, +1.8963603004032970, +1.2490235364165061, +1.1765276844212145, +1.9216840648666926, +1.2956403469794910, +1.4415995028748321, +1.2236768771169291, +1.8005997485115406, +1.9809426022609045, +1.9644433678250444, +1.8469763673804516, +1.7502743880055607, +1.2923191402031931, +1.0446993736591885, +1.8282591477490913, +1.5836592460492573, +1.3919056311383469, +1.3390201658897563

483

484adat = getFFTR(getFFTF(data)) / size(data)

485adat

486+1.9724298528705750, +1.1468700991012972, +1.8360761869316959, +1.1344064478611391, +1.0834784027278250, +1.9426128318439442, +1.8963603004032965, +1.2490235364165059, +1.1765276844212142, +1.9216840648666931, +1.2956403469794908, +1.4415995028748323, +1.2236768771169293, +1.8005997485115408, +1.9809426022609038, +1.9644433678250444, +1.8469763673804511, +1.7502743880055611, +1.2923191402031928, +1.0446993736591887, +1.8282591477490913, +1.5836592460492576, +1.3919056311383464, +1.3390201658897560

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+35

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.63544694768087344700793220066424911, +1.61667101089176624426649676137822340, +1.59777909778352028886377971636219986, +1.93531693887442021292886191397077417, +1.63258077162902074278379143111080637, +1.90952953130566170786733359536694254, +1.35660928531257824137560356988745901, +1.22373420422648093374978928338260193, +1.62915375599258833014908283557238689, +1.88283207268030122237029100321102190, +1.96565436740600739895619001639138067, +1.81853227649059177207444064983336064, +1.59825257077610644706783648238735242, +1.91561850184559212509160759496410402, +1.51049182655503676833649881492674314, +1.08541092159874768550791883841150781, +1.94992144290222047279725127593893084, +1.28740443645422831099184586905858268, +1.51307907449723761560120307766677273, +1.86775010786657678130485535489461264, +1.84190218052141606272575041893703641, +1.04704714017874024182009183207001199, +1.51780918851026762474175071028069283, +1.72900542704487205993206756583475747, +1.27704270956745546305520921533974522, +1.38182611338416889581532073589420032, +1.44853914511599115616580787115045997, +1.37143931805664124026546970236167415, +1.42685248124042722323743130937128125, +1.43202035182956516771947708994794981, +1.37711631715548172662415337908175416, +1.93274598313320150855816665474536068, +1.65567063765886030581900339782840894, +1.98917933065220018107920841746636257, +1.91277382819347867188266026950421745

500

501adat = getFFTR(getFFTF(data)) / size(data)

502adat

503+1.63544694768087344700793220066424930, +1.61667101089176624426649676137822340, +1.59777909778352028886377971636219986, +1.93531693887442021292886191397077417, +1.63258077162902074278379143111080675, +1.90952953130566170786733359536694273, +1.35660928531257824137560356988745920, +1.22373420422648093374978928338260174, +1.62915375599258833014908283557238708, +1.88283207268030122237029100321102190, +1.96565436740600739895619001639138106, +1.81853227649059177207444064983336102, +1.59825257077610644706783648238735281, +1.91561850184559212509160759496410421, +1.51049182655503676833649881492674333, +1.08541092159874768550791883841150743, +1.94992144290222047279725127593893122, +1.28740443645422831099184586905858288, +1.51307907449723761560120307766677254, +1.86775010786657678130485535489461322, +1.84190218052141606272575041893703660, +1.04704714017874024182009183207001180, +1.51780918851026762474175071028069302, +1.72900542704487205993206756583475747, +1.27704270956745546305520921533974542, +1.38182611338416889581532073589420070, +1.44853914511599115616580787115046035, +1.37143931805664124026546970236167453, +1.42685248124042722323743130937128125, +1.43202035182956516771947708994795020, +1.37711631715548172662415337908175454, +1.93274598313320150855816665474536087, +1.65567063765886030581900339782840894, +1.98917933065220018107920841746636296, +1.91277382819347867188266026950421784

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1156 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90